Mercurial > emacs
changeset 64944:c845f6151d83
(grep-mode-map): Add ellipsis to "Another grep".
(grep-mode-font-lock-keywords): Don't highlight "Grep started".
Add highlighting of "interrupt", "killed", "terminated".
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Sun, 14 Aug 2005 06:52:40 +0000 |
parents | 0734dceb92d1 |
children | 7a6aa8277fe1 |
files | lisp/progmodes/grep.el |
diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/grep.el Sun Aug 14 06:51:49 2005 +0000 +++ b/lisp/progmodes/grep.el Sun Aug 14 06:52:40 2005 +0000 @@ -206,7 +206,7 @@ (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 @@ (": \\(.+\\): \\(?: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\\)"