From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 10:42:16 +0000 (+0000)
Subject: (ansi-color-make-color-map): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10684
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c04c01ca0d0e491855e55bcfd16a49dbd0f779a9;p=emacs.git

(ansi-color-make-color-map): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index 769b21a38f3..9b022876ca2 100644
--- a/lisp/ansi-color.el
+++ b/lisp/ansi-color.el
@@ -557,14 +557,14 @@ The face definitions are based upon the variables
   (let ((ansi-color-map (make-vector 50 nil))
         (index 0))
     ;; miscellaneous attributes
-    (mapcar
+    (mapc
      (function (lambda (e)
                  (aset ansi-color-map index e)
                  (setq index (1+ index)) ))
      ansi-color-faces-vector)
     ;; foreground attributes
     (setq index 30)
-    (mapcar
+    (mapc
      (function (lambda (e)
                  (aset ansi-color-map index
 		       (ansi-color-make-face 'foreground e))
@@ -572,7 +572,7 @@ The face definitions are based upon the variables
      ansi-color-names-vector)
     ;; background attributes
     (setq index 40)
-    (mapcar
+    (mapc
      (function (lambda (e)
                  (aset ansi-color-map index
 		       (ansi-color-make-face 'background e))