diff options
| author | Juri Linkov | 2005-08-09 21:37:34 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-08-09 21:37:34 +0000 |
| commit | 7462142dc4355d8334d387e149257ddd03b62121 (patch) | |
| tree | e0c4e94a31842056fed606c5f57317e1c6a7e61a | |
| parent | 38dbf92be67e0e09ed0aaf8a1925b1f889a6897a (diff) | |
| download | emacs-7462142dc4355d8334d387e149257ddd03b62121.tar.gz emacs-7462142dc4355d8334d387e149257ddd03b62121.zip | |
(grep-regexp-alist): Use `.+?' instead of `[^:\n]+'.
(grep-mode-font-lock-keywords): Use `.+?' instead of `[^\n-]+'.
(grep-error-face): Set to `compilation-error' instead of
`compilation-error-face' (which is redefined to `grep-hit-face' in
grep buffers).
(grep-mode-font-lock-keywords): Remove `-text' from face
variable names. Use `grep-error-face' instead of
`compilation-error-text-face'.
| -rw-r--r-- | lisp/progmodes/grep.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 3af5aebfc6a..303ce2f5a15 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -244,11 +244,11 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies | |||
| 244 | 244 | ||
| 245 | ;;;###autoload | 245 | ;;;###autoload |
| 246 | (defvar grep-regexp-alist | 246 | (defvar grep-regexp-alist |
| 247 | '(("^\\([^:\n]+\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2" | 247 | '(("^\\(.+?\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2" |
| 248 | 1 3) | 248 | 1 3) |
| 249 | ;; Rule to match column numbers is commented out since no known grep | 249 | ;; Rule to match column numbers is commented out since no known grep |
| 250 | ;; produces them | 250 | ;; produces them |
| 251 | ;; ("^\\([^:\n]+\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2\\(?:\\([0-9]+\\)\\(?:-\\([0-9]+\\)\\)?\\2\\)?" | 251 | ;; ("^\\(.+?\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2\\(?:\\([0-9]+\\)\\(?:-\\([0-9]+\\)\\)?\\2\\)?" |
| 252 | ;; 1 3 (4 . 5)) | 252 | ;; 1 3 (4 . 5)) |
| 253 | ("^\\(\\(.+?\\):\\([0-9]+\\):\\).*?\ | 253 | ("^\\(\\(.+?\\):\\([0-9]+\\):\\).*?\ |
| 254 | \\(\033\\[01;31m\\(?:\033\\[K\\)?\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" | 254 | \\(\033\\[01;31m\\(?:\033\\[K\\)?\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
| @@ -272,7 +272,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies | |||
| 272 | (defvar grep-hit-face compilation-info-face | 272 | (defvar grep-hit-face compilation-info-face |
| 273 | "Face name to use for grep hits.") | 273 | "Face name to use for grep hits.") |
| 274 | 274 | ||
| 275 | (defvar grep-error-face compilation-error-face | 275 | (defvar grep-error-face 'compilation-error |
| 276 | "Face name to use for grep error messages.") | 276 | "Face name to use for grep error messages.") |
| 277 | 277 | ||
| 278 | (defvar grep-match-face 'match | 278 | (defvar grep-match-face 'match |
| @@ -289,13 +289,13 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies | |||
| 289 | ;; remove match from grep-regexp-alist before fontifying | 289 | ;; remove match from grep-regexp-alist before fontifying |
| 290 | ("^Grep finished \\(?:(\\(matches found\\))\\|with \\(no matches found\\)\\).*" | 290 | ("^Grep finished \\(?:(\\(matches found\\))\\|with \\(no matches found\\)\\).*" |
| 291 | (0 '(face nil message nil help-echo nil mouse-face nil) t) | 291 | (0 '(face nil message nil help-echo nil mouse-face nil) t) |
| 292 | (1 compilation-info-text-face nil t) | 292 | (1 compilation-info-face nil t) |
| 293 | (2 compilation-warning-text-face nil t)) | 293 | (2 compilation-warning-face nil t)) |
| 294 | ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" | 294 | ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" |
| 295 | (0 '(face nil message nil help-echo nil mouse-face nil) t) | 295 | (0 '(face nil message nil help-echo nil mouse-face nil) t) |
| 296 | (1 compilation-error-text-face) | 296 | (1 grep-error-face) |
| 297 | (2 compilation-error-text-face)) | 297 | (2 grep-error-face)) |
| 298 | ("^[^\n-]+-[0-9]+-.*" (0 grep-context-face)) | 298 | ("^.+?-[0-9]+-.*\n" (0 grep-context-face)) |
| 299 | ;; Highlight grep matches and delete markers | 299 | ;; Highlight grep matches and delete markers |
| 300 | ("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" | 300 | ("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
| 301 | ;; Refontification does not work after the markers have been | 301 | ;; Refontification does not work after the markers have been |