# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1021222014 0
# Node ID 21ed0daaa2c6a6d1572f06bef6ae93b3c094574c
# Parent  307e91e0f260892e093be26075bbd366414b8f69
(ansi-color-get-face): Avoid add-to-list on local var.
(ansi-color-apply-sequence): Avoid duplicates in combined face list.

diff -r 307e91e0f260 -r 21ed0daaa2c6 lisp/ansi-color.el
--- a/lisp/ansi-color.el	Sun May 12 16:42:26 2002 +0000
+++ b/lisp/ansi-color.el	Sun May 12 16:46:54 2002 +0000
@@ -554,7 +554,13 @@
 	  ((eq (car new-faces) 'default)
 	   (cdr new-faces))
 	  (t
-	   (append new-faces faces)))))
+	   ;; 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,7 +643,8 @@
 	    ((eq val 'default)
 	     (setq f (list val)))
 	    (t
-	     (add-to-list 'f val))))
+	     (unless (member val f)
+	       (push val f)))))
     f))
 
 (provide 'ansi-color)