# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1204130349 0
# Node ID 467f32569332c42d06c9f1896f34b55859a86c16
# Parent  f32eae6092fad00b9cf67ec82e9a46cc9ea682b4
(uniquify-buffer-base-name): If the base name is an empty
string, return nil to allow the caller to default to the
buffer name.  Reported by Martin Fischer <parozusa@web.de>.

diff -r f32eae6092fa -r 467f32569332 lisp/uniquify.el
--- a/lisp/uniquify.el	Wed Feb 27 15:09:04 2008 +0000
+++ b/lisp/uniquify.el	Wed Feb 27 16:39:09 2008 +0000
@@ -194,9 +194,11 @@
 ;; Used in desktop.el to save the non-uniquified buffer name
 (defun uniquify-buffer-base-name ()
   "Return the base name of the current buffer.
-Return nil if the buffer is not managed by uniquify."
+Return nil if the buffer is not managed by uniquify,
+or if the base name is empty."
   (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.