mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(ansi-color-for-comint-mode): Add :version.

Browse Source 
(ansi-color-for-comint-mode-on, ansi-color-process-output): Add
autoload cookie.
(ansi-color-apply-sequence): Fix typo.
This commit is contained in:
Gerd Moellmann 2001-01-29 15:40:44 +00:00
parent 438c2df049
commit 58622cc5c8
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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

5
lisp/ansi-color.el
View File

@ -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.