/[emacs]/emacs/lisp/ansi-color.el
ViewVC logotype

Diff of /emacs/lisp/ansi-color.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by sds, Tue Nov 27 15:52:52 2001 UTC revision 1.11 by rms, Sun May 12 16:46:54 2002 UTC
# Line 554  case we return nil." Line 554  case we return nil."
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.
# Line 637  ESCAPE-SEQ is a SGR control sequences su Line 643  ESCAPE-SEQ is a SGR control sequences su
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)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26