[Emacs-diffs] Changes to emacs/lisp/desktop.el,v

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/04/06 18:35:23

Index: desktop.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/desktop.el,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -b -r1.106 -r1.107
--- desktop.el  28 Feb 2007 08:59:14 -0000      1.106
+++ desktop.el  6 Apr 2007 18:35:23 -0000       1.107
@@ -782,7 +782,7 @@
          ";; 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 @@
              " 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 @@
                               "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 @@
               ((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))))