aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorJuri Linkov <[email protected]>2005-08-14 06:52:40 +0000
committerJuri Linkov <[email protected]>2005-08-14 06:52:40 +0000
commitcf115520b75f884a23530fe51b4eedd5ffd2a0ca (patch)
tree376aa220096f3caf6187ef86e9e93d0592e6eab8 /lisp/progmodes
parent314b410b7eacceab1b6cc42559d6035f4ea93d65 (diff)
(grep-mode-map): Add ellipsis to "Another grep".
(grep-mode-font-lock-keywords): Don't highlight "Grep started". Add highlighting of "interrupt", "killed", "terminated".
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/grep.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 303ce2f5a1..d6387d3901 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -206,7 +206,7 @@ See `compilation-error-screen-columns'"
(define-key map [menu-bar grep compilation-compile]
'("Compile..." . compile))
(define-key map [menu-bar grep compilation-grep]
- '("Another grep" . grep))
+ '("Another grep..." . grep))
(define-key map [menu-bar grep compilation-recompile]
'("Repeat grep" . recompile))
(define-key map [menu-bar grep compilation-separator2]
@@ -287,14 +287,15 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies
(": \\(.+\\): \\(?:Permission denied\\|No such \\(?:file or directory\\|device or address\\)\\)$"
1 grep-error-face)
;; remove match from grep-regexp-alist before fontifying
+ ("^Grep started.*" (0 '(face nil message nil help-echo nil mouse-face nil) t))
("^Grep finished \\(?:(\\(matches found\\))\\|with \\(no matches found\\)\\).*"
(0 '(face nil message nil help-echo nil mouse-face nil) t)
(1 compilation-info-face nil t)
(2 compilation-warning-face nil t))
- ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*"
+ ("^Grep \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?.*"
(0 '(face nil message nil help-echo nil mouse-face nil) t)
(1 grep-error-face)
- (2 grep-error-face))
+ (2 grep-error-face nil t))
("^.+?-[0-9]+-.*\n" (0 grep-context-face))
;; Highlight grep matches and delete markers
("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)"