From f3bb9e16c950f375eb8957c3267b6631ee65d9da Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 12 Nov 2010 08:28:17 -0500 Subject: [PATCH] * lisp/international/mule-cmds.el (princ-list): Use mapc. --- lisp/ChangeLog | 4 ++++ lisp/international/mule-cmds.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9dd1e61de47..8caa87a5204 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-11-12 Kevin Ryde + + * international/mule-cmds.el (princ-list): Use mapc. + 2010-11-12 Glenn Morris * emacs-lisp/bytecomp.el (byte-compile-log-buffer): New constant. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 2b193fbe42a..4701e7e5718 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2035,7 +2035,7 @@ See `set-language-info-alist' for use in programs." (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") -- 2.39.5