Mercurial > emacs
changeset 111513:7b9b95f705e1
* lisp/international/mule-cmds.el (princ-list): Use mapc.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 12 Nov 2010 08:28:17 -0500 |
| parents | 4f757d8e8ed7 |
| children | e21371bab717 |
| files | lisp/ChangeLog lisp/international/mule-cmds.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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")