diff options
| -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) |