diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-01-29 15:40:44 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-01-29 15:40:44 +0000 |
| commit | 58622cc5c8585c7b2241dcb1f82abe5390336199 (patch) | |
| tree | 3f83b093a9b8a40abf68ea5db8cd2df620ac85c2 | |
| parent | 438c2df0493fe632cb49602be7c31bd1995c15fa (diff) | |
| download | emacs-58622cc5c8585c7b2241dcb1f82abe5390336199.tar.gz | |
(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.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/ansi-color.el | 5 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 04300ed7086..79a010574bb 100644 --- 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 bbc3b774d53..51421add42c 100644 --- 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. |