diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 10:42:16 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 10:42:16 +0000 |
| commit | c04c01ca0d0e491855e55bcfd16a49dbd0f779a9 (patch) | |
| tree | 82c96a019a35cd89a152cfe9541a9d4b8ba2a806 /lisp/ansi-color.el | |
| parent | 5110e1660c9128dbded7dc05e08049d8c93f569b (diff) | |
| download | emacs-c04c01ca0d0e491855e55bcfd16a49dbd0f779a9.tar.gz emacs-c04c01ca0d0e491855e55bcfd16a49dbd0f779a9.tar.bz2 emacs-c04c01ca0d0e491855e55bcfd16a49dbd0f779a9.zip | |
(ansi-color-make-color-map): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/ansi-color.el')
| -rw-r--r-- | lisp/ansi-color.el | 6 |
1 files 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)) |