(desktop-create-buffer, desktop-save): Avoid some consing by using mapc

instead of mapcar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d07a3c7ffba7efc4bf46e78b3126205814e2a0fb..e867fa3de48ff3d5f945ed53399cec2b329804fa 100644 (file)
--- 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 0a423aa7c42e6a4e4f6aeb9fbc3fc6883fe719b1..55ebd662df686db1e4e703835bc5c2ce1312f0e6 100644 (file)
--- 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