From c04c01ca0d0e491855e55bcfd16a49dbd0f779a9 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 10:42:16 +0000 Subject: [PATCH] (ansi-color-make-color-map): Use `mapc' rather than `mapcar'. --- lisp/ansi-color.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.39.5