From 988e29061a37fe41044f2ccbf2ed740148d64366 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 03:00:05 +0000
Subject: [PATCH] (top level): Use mapc rather than mapcar.

---
 lisp/emacs-lisp/byte-opt.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index fdeab460c79..94b4a957cef 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -2007,17 +2007,17 @@ If FOR-EFFECT is non-nil, the return value is assumed to be of no importance."
      (assq 'byte-code (symbol-function 'byte-optimize-form))
      (let ((byte-optimize nil)
 	   (byte-compile-warnings nil))
-       (mapcar (lambda (x)
-		 (or noninteractive (message "compiling %s..." x))
-		 (byte-compile x)
-		 (or noninteractive (message "compiling %s...done" x)))
-	       '(byte-optimize-form
-		 byte-optimize-body
-		 byte-optimize-predicate
-		 byte-optimize-binary-predicate
-		 ;; Inserted some more than necessary, to speed it up.
-		 byte-optimize-form-code-walker
-		 byte-optimize-lapcode))))
+       (mapc (lambda (x)
+	       (or noninteractive (message "compiling %s..." x))
+	       (byte-compile x)
+	       (or noninteractive (message "compiling %s...done" x)))
+	     '(byte-optimize-form
+	       byte-optimize-body
+	       byte-optimize-predicate
+	       byte-optimize-binary-predicate
+	       ;; Inserted some more than necessary, to speed it up.
+	       byte-optimize-form-code-walker
+	       byte-optimize-lapcode))))
  nil)
 
 ;; arch-tag: 0f14076b-737e-4bef-aae6-908826ec1ff1
-- 
2.39.5