aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2005-08-09 21:37:34 +0000
committerJuri Linkov2005-08-09 21:37:34 +0000
commit7462142dc4355d8334d387e149257ddd03b62121 (patch)
treee0c4e94a31842056fed606c5f57317e1c6a7e61a
parent38dbf92be67e0e09ed0aaf8a1925b1f889a6897a (diff)
downloademacs-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.el16
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