Commit 4fefa382 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(ansi-color-apply): Updated regexps to include

highlighted face.
parent fa52fcb5
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):
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment