diff options
| author | Kevin Ryde <user42@zip.com.au> | 2010-11-12 08:28:17 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-11-12 08:28:17 -0500 |
| commit | f3bb9e16c950f375eb8957c3267b6631ee65d9da (patch) | |
| tree | 0b7ac699904273e18fcd0d5673645ec879cc5079 /lisp/international/mule-cmds.el | |
| parent | 2d9074ba9a5abaa7956e905a02ea180984f0540f (diff) | |
| download | emacs-f3bb9e16c950f375eb8957c3267b6631ee65d9da.tar.gz | |
* lisp/international/mule-cmds.el (princ-list): Use mapc.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 2 |
1 files changed, 1 insertions, 1 deletions
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") |