diff lisp/ansi-color.el @ 84856:2b87e65c55a0

(ansi-color-make-color-map): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 25 Sep 2007 10:42:16 +0000
parents 9355f9b7bbff
children 107ccd98fa12 14c4a6aac623
line wrap: on
line diff
--- 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))