From 48aa4dfc27547f0cd3ac183bb2046d3e7b954ae7 Mon Sep 17 00:00:00 2001 From: Lars Hansen Date: Fri, 26 Nov 2004 17:37:58 +0000 Subject: [PATCH] (desktop-read): Replace mapcar with mapc. (desktop-create-buffer): Replace mapcar with mapc. Remove redundant piece of code. --- lisp/ChangeLog | 6 ++++++ lisp/desktop.el | 7 +++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d72765fdb6..51fb165e182 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-11-26 Lars Hansen + + * desktop.el (desktop-read): Replace mapcar with mapc. + (desktop-create-buffer): Replace mapcar with mapc. Remove + redundant piece of code. + 2004-11-27 Nick Roberts * progmodes/gud.el (gud-display-line): Use display-buffer diff --git a/lisp/desktop.el b/lisp/desktop.el index 55ebd662df6..1e4fa67d199 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -711,8 +711,8 @@ It returns t if a desktop file was loaded, nil otherwise." ;; `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 @@ directory DIRNAME." (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)) -- 2.39.2