From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:14:28 +0000 (+0000)
Subject: (command-line): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10661
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e18c18e8709436f35e3c4f9e1c7387e856d2848a;p=emacs.git

(command-line): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 7bf5400345e..395d1673a1a 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1032,11 +1032,11 @@ opening the first frame (e.g. open a connection to an X server).")
 	;; 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).