Mercurial > emacs
comparison lisp/desktop.el @ 80247:c384fbc8c569
(desktop-save): Save the buffer name if the uniquified base name is empty.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 29 Feb 2008 02:57:39 +0000 |
| parents | 371aabe44346 |
| children | b30a40e18121 |
comparison
equal
deleted
inserted
replaced
| 80246:3629f9a94638 | 80247:c384fbc8c569 |
|---|---|
| 893 (setq eager (1- eager)))) | 893 (setq eager (1- eager)))) |
| 894 "desktop-create-buffer" | 894 "desktop-create-buffer" |
| 895 "desktop-append-buffer-args") | 895 "desktop-append-buffer-args") |
| 896 " " | 896 " " |
| 897 desktop-file-version) | 897 desktop-file-version) |
| 898 ;; If the base name is non-nil, we save it instead of the buffer name | 898 ;; If there's a non-empty base name, we save it instead of the buffer name |
| 899 (when base (setcar (nthcdr 1 l) base)) | 899 (when (and base (not (string= base ""))) |
| 900 (setcar (nthcdr 1 l) base)) | |
| 900 (dolist (e l) | 901 (dolist (e l) |
| 901 (insert "\n " (desktop-value-to-string e))) | 902 (insert "\n " (desktop-value-to-string e))) |
| 902 (insert ")\n\n")))) | 903 (insert ")\n\n")))) |
| 903 | 904 |
| 904 (setq default-directory desktop-dirname) | 905 (setq default-directory desktop-dirname) |