diff options
author | Tom Willemse | 2014-01-19 14:58:07 +0100 |
---|---|---|
committer | Tom Willemse | 2014-01-19 14:58:07 +0100 |
commit | 6cc4ba13876bdfc031445d0ecd2667650597f8cf (patch) | |
tree | 604ebf7ef58af7bc75863dab61c2c98c80a9ae53 | |
parent | d5feb53a4ebdf5a70d5c762c23485f444c1d888f (diff) | |
download | desktop-registry-6cc4ba13876bdfc031445d0ecd2667650597f8cf.tar.gz desktop-registry-6cc4ba13876bdfc031445d0ecd2667650597f8cf.zip |
Use nondirectory instead of base
This way a project directories with a `.' (dot) in them won't have the
last part stripped.
-rw-r--r-- | desktop-registry.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/desktop-registry.el b/desktop-registry.el index fb26fbf..917ba74 100644 --- a/desktop-registry.el +++ b/desktop-registry.el @@ -87,7 +87,7 @@ Returns DEFAULT when `desktop-dirname' is nil." (if (equal current-prefix-arg '(4)) (read-string "Name: ")))) (let* ((clean-dir (desktop-registry--canonicalize-dir dir)) - (label (or name (file-name-base clean-dir)))) + (label (or name (file-name-nondirectory clean-dir)))) (cond ((cl-find clean-dir desktop-registry-registry :key 'cdr :test 'equal) |