[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ansi-color.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ansi-color.el |
Date: |
Sun, 12 May 2002 12:46:54 -0400 |
Index: emacs/lisp/ansi-color.el
diff -c emacs/lisp/ansi-color.el:1.10 emacs/lisp/ansi-color.el:1.11
*** emacs/lisp/ansi-color.el:1.10 Tue Nov 27 10:52:52 2001
--- emacs/lisp/ansi-color.el Sun May 12 12:46:54 2002
***************
*** 554,560 ****
((eq (car new-faces) 'default)
(cdr new-faces))
(t
! (append new-faces faces)))))
(defun ansi-color-make-color-map ()
"Creates a vector of face definitions and returns it.
--- 554,566 ----
((eq (car new-faces) 'default)
(cdr new-faces))
(t
! ;; Like (append NEW-FACES FACES)
! ;; but delete duplicates in FACES.
! (let ((modified-faces (copy-sequence faces)))
! (dolist (face (nreverse new-faces))
! (setq modified-faces (delete face modified-faces))
! (push face modified-faces))
! modified-faces)))))
(defun ansi-color-make-color-map ()
"Creates a vector of face definitions and returns it.
***************
*** 637,643 ****
((eq val 'default)
(setq f (list val)))
(t
! (add-to-list 'f val))))
f))
(provide 'ansi-color)
--- 643,650 ----
((eq val 'default)
(setq f (list val)))
(t
! (unless (member val f)
! (push val f)))))
f))
(provide 'ansi-color)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ansi-color.el,
Richard M. Stallman <=