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

diff -r 3629f9a94638 -r c384fbc8c569 lisp/desktop.el
--- a/lisp/desktop.el	Fri Feb 29 02:40:10 2008 +0000
+++ b/lisp/desktop.el	Fri Feb 29 02:57:39 2008 +0000
@@ -895,8 +895,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"))))