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-apply): Updated regexps to include

Browse Source 
highlighted face.
This commit is contained in:
Gerd Moellmann 1999-11-13 23:19:56 +00:00
parent fa52fcb511
commit 4fefa382f0
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
1999-11-15 Alex Schroeder <alex@gnu.org>
* ansi-color.el (ansi-color-apply): Updated regexps to include
highlighted face.
1999-01-15 Johan Vromans <jvromans@squirrel.nl>
* forms.el (forms--make-format-elt-using-text-properties):

6
lisp/ansi-color.el
View File

@ -4,7 +4,7 @@
;; Author: Alex Schroeder <alex@gnu.org>
;; Maintainer: Alex Schroeder <alex@gnu.org>
;; Version: 2.1.1
;; Version: 2.1.2
;; Keywords: comm processes
;; This file is part of GNU Emacs.
@ -118,7 +118,7 @@ This function can be added to `comint-preoutput-filter-functions'."
(result)
(params))
;; find the next escape sequence
(while (setq end (string-match "\033\\[\\([01347][01234567]?;\\)*[01347][01234567]?m" string start))
(while (setq end (string-match "\033\\[\\([013457][01234567]?;\\)*[013457][01234567]?m" string start))
;; store escape sequence
(setq escape (match-string 0 string))
;; colorize the old block from start to end using old face
@ -127,7 +127,7 @@ This function can be added to `comint-preoutput-filter-functions'."
(setq result (concat result (substring string start end)))
;; create new face by applying all the parameters in the escape sequence
(let ((i 0))
(while (setq i (string-match "[01347][01234567]?[;m]" escape i))
(while (setq i (string-match "[013457][01234567]?[;m]" escape i))
(setq face (ansi-color-make-face face
(aref escape i)
(aref escape (1+ i))))