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

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:11:21

Index: cust-print.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cust-print.el,v
retrieving revision 2.14
retrieving revision 2.15
diff -u -b -r2.14 -r2.15
--- cust-print.el       26 Jul 2007 05:26:46 -0000      2.14
+++ cust-print.el       26 Sep 2007 00:11:21 -0000      2.15
@@ -244,7 +244,7 @@
 
 ;; Save emacs routines.
 (if (not (fboundp 'cust-print-original-prin1))
-    (mapcar 'cust-print-set-function-cell
+    (mapc 'cust-print-set-function-cell
            '((cust-print-original-prin1 prin1)
              (cust-print-original-princ princ)
              (cust-print-original-print print)
@@ -259,7 +259,7 @@
 The Emacs subroutines are saved away, and you can reinstall them
 by running `custom-print-uninstall'."
   (interactive)
-  (mapcar 'cust-print-set-function-cell
+  (mapc 'cust-print-set-function-cell
          '((prin1 custom-prin1)
            (princ custom-princ)
            (print custom-print)
@@ -273,7 +273,7 @@
 (defun custom-print-uninstall ()
   "Reset print functions to their Emacs subroutines."
   (interactive)
-  (mapcar 'cust-print-set-function-cell
+  (mapc 'cust-print-set-function-cell
          '((prin1 cust-print-original-prin1)
            (princ cust-print-original-princ)
            (print cust-print-original-print)