# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980782807 0
# Node ID 1126fb97e2d734261607cae56fefbed38955d2d2
# Parent  ce61748538d635320e96b291d794aa9e1320f3cc
(ansi-color-for-comint-mode): Add :version.
(ansi-color-for-comint-mode-on, ansi-color-process-output): Add
autoload cookie.
(ansi-color-apply-sequence): Fix typo.

diff -r ce61748538d6 -r 1126fb97e2d7 lisp/ansi-color.el
--- a/lisp/ansi-color.el	Mon Jan 29 14:59:34 2001 +0000
+++ b/lisp/ansi-color.el	Mon Jan 29 15:40:07 2001 +0000
@@ -172,12 +172,12 @@
 \\[ansi-color-for-comint-mode-on]
 \\[ansi-color-for-comint-mode-off]
 \\[ansi-color-for-comint-mode-filter]"
-  :version "21.1"
   :type '(choice (const :tag "Do nothing" nil)
 		 (const :tag "Filter" filter)
 		 (const :tag "Translate" t))
   :group 'ansi-colors)
 
+;;;###autoload
 (defun ansi-color-for-comint-mode-on ()
   "Set `ansi-color-for-comint-mode' to t."
   (interactive)
@@ -193,6 +193,7 @@
   (interactive)
   (setq ansi-color-for-comint-mode 'filter))
 
+;;;###autoload
 (defun ansi-color-process-output (string)
   "Maybe translate SGR control sequences of comint output into text-properties.
 
@@ -553,7 +554,7 @@
 	  ((eq (car new-faces) 'default)
 	   (cdr new-faces))
 	  (t
-	   (append new-faces face)))))
+	   (append new-faces faces)))))
 
 (defun ansi-color-make-color-map ()
   "Creates a vector of face definitions and returns it.