# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190718868 0
# Node ID 54aa4c1eb6d68ae40d0250fc687fe3cff1663959
# Parent  c73290ec60edcd37818f5e62aca17f56a7609a8b
(command-line): Use `mapc' rather than `mapcar'.

diff -r c73290ec60ed -r 54aa4c1eb6d6 lisp/startup.el
--- 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).