# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190716936 0
# Node ID 2b87e65c55a0e54789b215944c879bf3733c2732
# Parent  5b7295004fd1cd2322396a8076b8c1743b3195db
(ansi-color-make-color-map): Use `mapc' rather than `mapcar'.

diff -r 5b7295004fd1 -r 2b87e65c55a0 lisp/ansi-color.el
--- a/lisp/ansi-color.el	Tue Sep 25 10:41:00 2007 +0000
+++ b/lisp/ansi-color.el	Tue Sep 25 10:42:16 2007 +0000
@@ -557,14 +557,14 @@
   (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 @@
      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))