Mercurial > emacs

changeset 84856:2b87e65c55a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 5b7295004fd1
children 03c05458c97e
files lisp/ansi-color.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
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))