mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(ansi-color-make-color-map): Use mapc' rather than mapcar'.

Browse Source
This commit is contained in:
Juanma Barranquero 2007-09-25 10:42:16 +00:00
parent 5110e1660c
commit c04c01ca0d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ansi-color.el
View File

@ -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))