From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 12 Nov 2004 16:56:09 +0000 (+0000)
Subject: (desktop-create-buffer, desktop-save): Avoid some consing by using mapc
X-Git-Tag: ttn-vms-21-2-B4~3968
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63cd573484da1c6ea1859da890bbf4e3412e106f;p=emacs.git

(desktop-create-buffer, desktop-save): Avoid some consing by using mapc
instead of mapcar.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d07a3c7ffba..e867fa3de48 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-12  Kevin Rodgers  <ihs_4664@yahoo.com>  (tiny change)
+
+	* desktop.el (desktop-create-buffer, desktop-save): Avoid some
+	consing by using mapc instead of mapcar.
+
 2004-11-12  Nick Roberts  <nickrob@snap.net.nz>
 
 	* tooltip.el (require): Explain why CL is needed.
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 0a423aa7c42..55ebd662df6 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -636,7 +636,7 @@ See also `desktop-base-file-name'."
         ";; Desktop file format version " desktop-file-version "\n"
         ";; Emacs version " emacs-version "\n\n"
         ";; Global section:\n")
-      (mapcar (function desktop-outvar) desktop-globals-to-save)
+      (mapc (function desktop-outvar) desktop-globals-to-save)
       (if (memq 'kill-ring desktop-globals-to-save)
         (insert
           "(setq kill-ring-yank-pointer (nthcdr "
@@ -644,15 +644,15 @@ See also `desktop-base-file-name'."
           " kill-ring))\n"))
 
       (insert "\n;; Buffer section -- buffers listed in same order as in buffer list:\n")
-      (mapcar #'(lambda (l)
-                  (if (apply 'desktop-save-buffer-p l)
-                      (progn
-                        (insert "(desktop-create-buffer " desktop-file-version)
-                        (mapcar #'(lambda (e)
-                                    (insert "\n  " (desktop-value-to-string e)))
-                                l)
-                        (insert ")\n\n"))))
-              info)
+      (mapc #'(lambda (l)
+		(if (apply 'desktop-save-buffer-p l)
+		    (progn
+		      (insert "(desktop-create-buffer " desktop-file-version)
+		      (mapc #'(lambda (e)
+				(insert "\n  " (desktop-value-to-string e)))
+			    l)
+		      (insert ")\n\n"))))
+	    info)
       (setq default-directory dirname)
       (when (file-exists-p filename) (delete-file filename))
       (let ((coding-system-for-write 'emacs-mule))
@@ -873,9 +873,9 @@ directory DIRNAME."
               ((equal '(nil) desktop-buffer-minor-modes) ; backwards compatible
                (auto-fill-mode 0))
               (t
-               (mapcar #'(lambda (minor-mode)
-                           (when (functionp minor-mode) (funcall minor-mode 1)))
-                       desktop-buffer-minor-modes)))
+               (mapc #'(lambda (minor-mode)
+			 (when (functionp minor-mode) (funcall minor-mode 1)))
+		     desktop-buffer-minor-modes)))
         ;; Even though point and mark are non-nil when written by `desktop-save'
         ;; they may be modified by handlers wanting to set point or mark themselves.
         (when desktop-buffer-point