554 |
((eq (car new-faces) 'default) |
((eq (car new-faces) 'default) |
555 |
(cdr new-faces)) |
(cdr new-faces)) |
556 |
(t |
(t |
557 |
(append new-faces faces))))) |
;; Like (append NEW-FACES FACES) |
558 |
|
;; but delete duplicates in FACES. |
559 |
|
(let ((modified-faces (copy-sequence faces))) |
560 |
|
(dolist (face (nreverse new-faces)) |
561 |
|
(setq modified-faces (delete face modified-faces)) |
562 |
|
(push face modified-faces)) |
563 |
|
modified-faces))))) |
564 |
|
|
565 |
(defun ansi-color-make-color-map () |
(defun ansi-color-make-color-map () |
566 |
"Creates a vector of face definitions and returns it. |
"Creates a vector of face definitions and returns it. |
643 |
((eq val 'default) |
((eq val 'default) |
644 |
(setq f (list val))) |
(setq f (list val))) |
645 |
(t |
(t |
646 |
(add-to-list 'f val)))) |
(unless (member val f) |
647 |
|
(push val f))))) |
648 |
f)) |
f)) |
649 |
|
|
650 |
(provide 'ansi-color) |
(provide 'ansi-color) |