[Emacs-diffs] Changes to emacs/lisp/ansi-color.el

[Richard M. Stallman]

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)