# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 942535155 0
# Node ID 5ebcf240e1c6a11aaf5f7811764e6a3d3870be86
# Parent  8cff6b2a70c6a2ba798567f6d61b600eeb2de53a
(ansi-color-apply): Updated regexps to include
highlighted face.

diff -r 8cff6b2a70c6 -r 5ebcf240e1c6 lisp/ansi-color.el
--- a/lisp/ansi-color.el	Sat Nov 13 22:47:19 1999 +0000
+++ b/lisp/ansi-color.el	Sat Nov 13 23:19:15 1999 +0000
@@ -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 @@
 	(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 @@
       (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))))