Mercurial > emacs
diff lisp/startup.el @ 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 | e2a2c43a4876 |
children | 2e9aec8f7126 |
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).