From 4fefa382f061322a759f496f94059948dc43cf82 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 13 Nov 1999 23:19:56 +0000 Subject: [PATCH] (ansi-color-apply): Updated regexps to include highlighted face. --- lisp/ChangeLog | 5 +++++ lisp/ansi-color.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fd4449045d8..7f4cd1a0c55 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +1999-11-15 Alex Schroeder + + * ansi-color.el (ansi-color-apply): Updated regexps to include + highlighted face. + 1999-01-15 Johan Vromans * forms.el (forms--make-format-elt-using-text-properties): diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el index 7bc747dd04a..746038e32dc 100644 --- a/lisp/ansi-color.el +++ b/lisp/ansi-color.el @@ -4,7 +4,7 @@ ;; Author: Alex Schroeder ;; Maintainer: Alex Schroeder -;; 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)))) -- 2.39.5