(uniquify-buffer-base-name): If the base name is an empty string,

return nil to allow the caller to default to the buffer name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 531ca2e08bffc153834296d29ff597bdaedf69e7..5bc2fe80fbca437694a3bd3bcbbd50744acadc06 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,13 @@
+2008-02-27  Juanma Barranquero  <lekktu@gmail.com>
+
+       * uniquify.el (uniquify-buffer-base-name): If the base name is an
+       empty string, return nil to allow the caller to default to the
+       buffer name.
+
 2008-02-26  Jason Rumney  <jasonr@gnu.org>
 
        * files.el (make-auto-save-file-name): Encode more characters in
-       non-file buffer names. Use url-encoding.
+       non-file buffer names.  Use url-encoding.
 
 2008-02-26  Juanma Barranquero  <lekktu@gmail.com>
 

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index b2167f48656ece8c988da9bccb050d93cea376ab..c07dd57af4e99c2e70c47572d3a278d069e23252 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -194,7 +194,8 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.")
   "Return the base name of the current buffer.
 Return nil if the buffer is not managed by uniquify."
   (and uniquify-managed
-       (uniquify-item-base (car uniquify-managed))))
+       (let ((base (uniquify-item-base (car uniquify-managed))))
+        (if (string= base "") nil base))))
 
 ;;; Main entry point.