(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04300ed7086aac013cfc327f1ddbc8204cecd416..79a010574bb6225fd665dffe0275ca2c0147f55c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-29  Dave Love  <fx@gnu.org>
+
+       * ansi-color.el (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.
+
 2001-01-29  Gerd Moellmann  <gerd@gnu.org>
 
        * menu-bar.el (menu-bar-files-menu): Add menu items for 

diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index bbc3b774d53716336042c17bc1893b252f9922a1..51421add42c0629e3d63a54f2d8156f8b7e03b6a 100644 (file)
--- a/lisp/ansi-color.el
+++ b/lisp/ansi-color.el
@@ -172,12 +172,12 @@ in shell buffers.  You set this variable by calling one of:
 \\[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 @@ in shell buffers.  You set this variable by calling one of:
   (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 @@ case we return nil."
          ((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.