From 6cc4ba13876bdfc031445d0ecd2667650597f8cf Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 19 Jan 2014 14:58:07 +0100
Subject: 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)
-- 
cgit v1.2.3-54-g00ecf