Mercurial > emacs
changeset 35686:1126fb97e2d7
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 29 Jan 2001 15:40:07 +0000 |
| parents | ce61748538d6 |
| children | 2420bdb3fc46 |
| files | lisp/ansi-color.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.