Mercurial > emacs
changeset 58537:619031e477a8
(desktop-read): Replace mapcar with mapc.
(desktop-create-buffer): Replace mapcar with mapc. Remove redundant piece of code.
| author | Lars Hansen <larsh@soem.dk> |
|---|---|
| date | Fri, 26 Nov 2004 17:37:32 +0000 |
| parents | f4b2f3f54b6a |
| children | 97f7969c03f6 |
| files | lisp/desktop.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/desktop.el Fri Nov 26 17:29:19 2004 +0000 +++ b/lisp/desktop.el Fri Nov 26 17:37:32 2004 +0000 @@ -711,8 +711,8 @@ ;; `desktop-create-buffer' puts buffers at end of the buffer list. ;; We want buffers existing prior to evaluating the desktop (and not reused) ;; to be placed at the end of the buffer list, so we move them here. - (mapcar 'bury-buffer - (nreverse (cdr (memq desktop-first-buffer (nreverse (buffer-list)))))) + (mapc 'bury-buffer + (nreverse (cdr (memq desktop-first-buffer (nreverse (buffer-list)))))) (switch-to-buffer (car (buffer-list))) (run-hooks 'desktop-delay-hook) (setq desktop-delay-hook nil) @@ -855,11 +855,10 @@ (setq desktop-buffer-ok-count (1+ desktop-buffer-ok-count)) (setq desktop-buffer-fail-count (1+ desktop-buffer-fail-count)) (setq result nil)) - (unless (bufferp result) (setq result nil)) ;; Restore buffer list order with new buffer at end. Don't change ;; the order for old desktop files (old desktop module behaviour). (unless (< desktop-file-version 206) - (mapcar 'bury-buffer buffer-list) + (mapc 'bury-buffer buffer-list) (when result (bury-buffer result))) (when result (unless (or desktop-first-buffer (< desktop-file-version 206))