# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1204254145 0
# Node ID 04dddf68dfc074a9a5fb79fad101e3d1a996ef47
# Parent  a5d0f96b4c75346e3fa816dbea556648df0b5607
(desktop-save): Save the buffer name if the uniquified base name is empty.

diff -r a5d0f96b4c75 -r 04dddf68dfc0 lisp/desktop.el
--- a/lisp/desktop.el	Fri Feb 29 02:10:45 2008 +0000
+++ b/lisp/desktop.el	Fri Feb 29 03:02:25 2008 +0000
@@ -897,8 +897,9 @@
 			  "desktop-append-buffer-args")
 			" "
 			desktop-file-version)
-		;; If the base name is non-nil, we save it instead of the buffer name
-		(when base (setcar (nthcdr 1 l) base))
+		;; If there's a non-empty base name, we save it instead of the buffer name
+		(when (and base (not (string= base "")))
+		  (setcar (nthcdr 1 l) base))
 		(dolist (e l)
 		  (insert "\n  " (desktop-value-to-string e)))
 		(insert ")\n\n"))))