diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-06 18:35:23 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-06 18:35:23 +0000 |
| commit | c5c1022d716570d69d215506a8b4347edcd07d1b (patch) | |
| tree | 75232f783328b6597f7294dd60dd146318ce50d0 /lisp/desktop.el | |
| parent | b695d74bf859bde6fa7c88341c6f070477bedccb (diff) | |
| download | emacs-c5c1022d716570d69d215506a8b4347edcd07d1b.tar.gz | |
(desktop-create-buffer, desktop-save): Revert 2004-11-12 change.
Diffstat (limited to 'lisp/desktop.el')
| -rw-r--r-- | lisp/desktop.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index 4328b8e3839..7b5db86f3cf 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -782,7 +782,7 @@ See also `desktop-base-file-name'." ";; 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 @@ See also `desktop-base-file-name'." " 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 @@ See also `desktop-base-file-name'." "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 @@ directory DIRNAME." ((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)))) |