From f04a89690963de94f8522f1568bd358c39cdcaae Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 18 Jun 2005 12:57:49 +0000 Subject: [PATCH] (grep-regexp-alist): Use backreference at the end of first regexp to limit the match to the position between line number and source line with same separator character as used between file name and line number. In the second regexp limit mouse-face area to file name and line number by adding new group for them and referring it in HYPERLINK arg. (grep-regexp-alist, grep-mode-font-lock-keywords): Use shy group. (grep-mode): Set font-lock-lines-before to 0 to not refontify the previous line where grep markers may be already removed. --- lisp/ChangeLog | 12 ++++++++++++ lisp/progmodes/grep.el | 22 ++++++++++++++-------- 2 files changed, 26 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0ed18872f5..6c12d144523 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2005-06-18 Juri Linkov + + * progmodes/grep.el (grep-regexp-alist): Use backreference at the + end of first regexp to limit the match to the position between + line number and source line with same separator character as used + between file name and line number. In the second regexp limit + mouse-face area to file name and line number by adding new group + for them and referring it in HYPERLINK arg. + (grep-regexp-alist, grep-mode-font-lock-keywords): Use shy group. + (grep-mode): Set font-lock-lines-before to 0 to not refontify the + previous line where grep markers may be already removed. + 2005-06-18 Peter Kleiweg * progmodes/ps-mode.el: Update version and maintainer's email diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 195875842a3..f3657a0a279 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -250,17 +250,20 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies ;; rms: I removed the code to match parens around the line number ;; because it causes confusion and so we will find out if anyone needs it. ;; It causes confusion with a file name that contains a number in parens. - '(("^\\(.+?\\)[: \t]+\ + '(("^\\(.+?\\)\\([: \t]\\)+\ \\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\ -\\(?:-\\(?:\\([0-9]+\\)\\3\\)?\\.?\\([0-9]+\\)?\\)?[: \t]" 1 (2 . 5) (4 . 6)) - ("^\\(.+?\\)[:(]+\\([0-9]+\\)\\([:)]\\).*?\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(\033\\[K\\)?\\)" - 1 2 +\\(?:-\\(?:\\([0-9]+\\)\\4\\)?\\.?\\([0-9]+\\)?\\)?\\2" + 1 (3 . 6) (5 . 7)) + ("^\\(\\(.+?\\):\\([0-9]+\\):\\).*?\ +\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(?:\033\\[K\\)?\\)" + 2 3 ;; Calculate column positions (beg . end) of first grep match on a line ((lambda () (setq compilation-error-screen-columns nil) - (- (match-beginning 5) (match-end 3) 8)) + (- (match-beginning 5) (match-end 1) 8)) . - (lambda () (- (match-end 5) (match-end 3) 8)))) + (lambda () (- (match-end 5) (match-end 1) 8))) + nil 1) ("^Binary file \\(.+\\) matches$" 1 nil nil 1)) "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") @@ -293,7 +296,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\\[K\\)?\\)" + ("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(?:\033\\[K\\)?\\)" ;; Refontification does not work after the markers have been ;; deleted. So we use the font-lock-face property here as Font ;; Lock does not clear that. @@ -517,7 +520,10 @@ temporarily highlight in visited source lines." (set (make-local-variable 'compilation-error-face) grep-hit-face) (set (make-local-variable 'compilation-error-regexp-alist) - grep-regexp-alist)) + grep-regexp-alist) + ;; Set `font-lock-lines-before' to 0 to not refontify the previous + ;; line where grep markers may be already removed. + (set (make-local-variable 'font-lock-lines-before) 0)) ;;;###autoload (defun grep-find (command-args) -- 2.39.2