(grep-regexp-alist): Match an optional ^[[K

that some versions of grep produce.
(grep-mode-font-lock-keywords): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f917dda73fa4f68435c6b76485ae794cbb3bab56..da823b5f8cbd6b03136d1c31e15f09130a11a794 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-02-08  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * progmodes/grep.el (grep-regexp-alist): Match an optional ^[[K
+       that some versions of grep produce.
+       (grep-mode-font-lock-keywords): Likewise.
+
 2005-02-09  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gdb-ui.el (gdb-location-list): New variable.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index a3b1ab3abdd029218a9ec59f74f6b23baac39931..ac052a893b24613577e0586f721c025f89f7b582 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -253,7 +253,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies
   '(("^\\(.+?\\)[: \t]+\
 \\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\
 \\(?:-\\(?:\\([0-9]+\\)\\3\\)?\\.?\\([0-9]+\\)?\\)?[: \t]" 1 (2 . 5) (4 . 6))
-    ("^\\(.+?\\)[:(]+\\([0-9]+\\)\\([:)]\\).*?\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\)"
+    ("^\\(.+?\\)[:(]+\\([0-9]+\\)\\([:)]\\).*?\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(\033\\[K\\)?\\)"
      1 2
      ;; Calculate column positions (beg . end) of first grep match on a line
      ((lambda ()
@@ -293,7 +293,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies
       (1 compilation-warning-face)
       (2 compilation-line-face))
      ;; Highlight grep matches and delete markers
-     ("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\)"
+     ("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(\033\\[K\\)?\\)"
       (2 grep-match-face)
       ((lambda (p))
        (progn