[Emacs-diffs] /srv/bzr/emacs/trunk r102360: * lisp/international/mule-cmds.el (princ-list): Use mapc.

[Stefan Monnier]

------------------------------------------------------------
revno: 102360
author: Kevin Ryde <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2010-11-12 08:28:17 -0500
message:
  * lisp/international/mule-cmds.el (princ-list): Use mapc.
modified:
  lisp/ChangeLog
  lisp/international/mule-cmds.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-12 03:21:38 +0000
+++ b/lisp/ChangeLog    2010-11-12 13:28:17 +0000
@@ -1,3 +1,7 @@
+2010-11-12  Kevin Ryde  <address@hidden>
+
+       * international/mule-cmds.el (princ-list): Use mapc.
+
 2010-11-12  Glenn Morris  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-compile-log-buffer): New constant.

=== modified file 'lisp/international/mule-cmds.el'
--- a/lisp/international/mule-cmds.el   2010-11-09 20:07:10 +0000
+++ b/lisp/international/mule-cmds.el   2010-11-12 13:28:17 +0000
@@ -2035,7 +2035,7 @@
 
 (defun princ-list (&rest args)
   "Print all arguments with `princ', then print \"\\n\"."
-  (while args (princ (car args)) (setq args (cdr args)))
+  (mapc #'princ args)
   (princ "\n"))
 (make-obsolete 'princ-list "use mapc and princ instead" "23.3")