From 6cc4ba13876bdfc031445d0ecd2667650597f8cf Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 19 Jan 2014 14:58:07 +0100 Subject: [PATCH] Use nondirectory instead of base This way a project directories with a `.' (dot) in them won't have the last part stripped. --- desktop-registry.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)