[Emacs-diffs] Changes to emacs/lisp/desktop.el,v [EMACS_22_BASE]

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Juanma Barranquero <lektu>      08/02/29 02:57:40

Index: desktop.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/desktop.el,v
retrieving revision 1.108.2.8
retrieving revision 1.108.2.9
diff -u -b -r1.108.2.8 -r1.108.2.9
--- desktop.el  12 Feb 2008 23:30:03 -0000      1.108.2.8
+++ desktop.el  29 Feb 2008 02:57:39 -0000      1.108.2.9
@@ -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"))))