Mercurial > emacs
changeset 84879:54aa4c1eb6d6
(command-line): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Sep 2007 11:14:28 +0000 |
| parents | c73290ec60ed |
| children | edcc591dc3a4 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Tue Sep 25 11:13:24 2007 +0000 +++ b/lisp/startup.el Tue Sep 25 11:14:28 2007 +0000 @@ -1032,11 +1032,11 @@ ;; buffers (probably *scratch*, *Messages*, *Minibuff-0*). ;; Arguably this should only be done if they're free of ;; multibyte characters. - (mapcar (lambda (buffer) - (with-current-buffer buffer - (if enable-multibyte-characters - (set-buffer-multibyte nil)))) - (buffer-list)) + (mapc (lambda (buffer) + (with-current-buffer buffer + (if enable-multibyte-characters + (set-buffer-multibyte nil)))) + (buffer-list)) ;; Also re-set the language environment in case it was ;; originally done before unibyte was set and is sensitive to ;; unibyte (display table, terminal coding system &c).