# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1289568497 18000
# Node ID 7b9b95f705e11393cf42dd4478f24a1c4aa1d3b6
# Parent  4f757d8e8ed77fe92d16a02786cb8b9499dd94fa
* lisp/international/mule-cmds.el (princ-list): Use mapc.

diff -r 4f757d8e8ed7 -r 7b9b95f705e1 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 12 10:31:44 2010 +0100
+++ b/lisp/ChangeLog	Fri Nov 12 08:28:17 2010 -0500
@@ -1,3 +1,7 @@
+2010-11-12  Kevin Ryde  <user42@zip.com.au>
+
+	* international/mule-cmds.el (princ-list): Use mapc.
+
 2010-11-12  Glenn Morris  <rgm@gnu.org>
 
 	* emacs-lisp/bytecomp.el (byte-compile-log-buffer): New constant.
diff -r 4f757d8e8ed7 -r 7b9b95f705e1 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Fri Nov 12 10:31:44 2010 +0100
+++ b/lisp/international/mule-cmds.el	Fri Nov 12 08:28:17 2010 -0500
@@ -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")