Mercurial > emacs
changeset 76978:69597b621497
(desktop-create-buffer, desktop-save): Revert 2004-11-12 change.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 06 Apr 2007 18:35:23 +0000 |
| parents | 988e52fbb508 |
| children | cc151aa9d59d |
| files | lisp/desktop.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/desktop.el Fri Apr 06 18:35:09 2007 +0000 +++ b/lisp/desktop.el Fri Apr 06 18:35:23 2007 +0000 @@ -782,7 +782,7 @@ ";; Desktop file format version " desktop-file-version "\n" ";; Emacs version " emacs-version "\n\n" ";; Global section:\n") - (mapc (function desktop-outvar) desktop-globals-to-save) + (mapcar (function desktop-outvar) desktop-globals-to-save) (if (memq 'kill-ring desktop-globals-to-save) (insert "(setq kill-ring-yank-pointer (nthcdr " @@ -790,7 +790,7 @@ " kill-ring))\n")) (insert "\n;; Buffer section -- buffers listed in same order as in buffer list:\n") - (mapc #'(lambda (l) + (mapcar #'(lambda (l) (when (apply 'desktop-save-buffer-p l) (insert "(" (if (or (not (integerp eager)) @@ -801,7 +801,7 @@ "desktop-append-buffer-args") " " desktop-file-version) - (mapc #'(lambda (e) + (mapcar #'(lambda (e) (insert "\n " (desktop-value-to-string e))) l) (insert ")\n\n"))) @@ -1045,7 +1045,7 @@ ((equal '(nil) desktop-buffer-minor-modes) ; backwards compatible (auto-fill-mode 0)) (t - (mapc #'(lambda (minor-mode) + (mapcar #'(lambda (minor-mode) ;; Give minor mode module a chance to add a handler. (desktop-load-file minor-mode) (let ((handler (cdr (assq minor-mode desktop-minor-mode-handlers))))