248 |
|
|
249 |
;;;###autoload |
;;;###autoload |
250 |
(defvar grep-regexp-alist |
(defvar grep-regexp-alist |
251 |
;; rms: I removed the code to match parens around the line number |
'(("^\\([^:\n]+\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2" |
252 |
;; because it causes confusion and so we will find out if anyone needs it. |
1 3) |
253 |
;; It causes confusion with a file name that contains a number in parens. |
;; Rule to match column numbers is commented out since no known grep |
254 |
'(("^\\(.+?\\)\\([: \t]\\)+\ |
;; produces them |
255 |
\\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\ |
;; ("^\\([^:\n]+\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2\\(?:\\([0-9]+\\)\\(?:-\\([0-9]+\\)\\)?\\2\\)?" |
256 |
\\(?:-\\(?:\\([0-9]+\\)\\4\\)?\\.?\\([0-9]+\\)?\\)?\\2" |
;; 1 3 (4 . 5)) |
|
1 (3 . 6) (5 . 7)) |
|
257 |
("^\\(\\(.+?\\):\\([0-9]+\\):\\).*?\ |
("^\\(\\(.+?\\):\\([0-9]+\\):\\).*?\ |
258 |
\\(\033\\[01;31m\\(?:\033\\[K\\)?\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
\\(\033\\[01;31m\\(?:\033\\[K\\)?\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
259 |
2 3 |
2 3 |
283 |
(defvar grep-match-face 'match |
(defvar grep-match-face 'match |
284 |
"Face name to use for grep matches.") |
"Face name to use for grep matches.") |
285 |
|
|
286 |
|
(defvar grep-context-face 'shadow |
287 |
|
"Face name to use for grep context lines.") |
288 |
|
|
289 |
(defvar grep-mode-font-lock-keywords |
(defvar grep-mode-font-lock-keywords |
290 |
'(;; Command output lines. |
'(;; Command output lines. |
291 |
("^\\([A-Za-z_0-9/\.+-]+\\)[ \t]*:" 1 font-lock-function-name-face) |
("^\\([A-Za-z_0-9/\.+-]+\\)[ \t]*:" 1 font-lock-function-name-face) |
300 |
(0 '(face nil message nil help-echo nil mouse-face nil) t) |
(0 '(face nil message nil help-echo nil mouse-face nil) t) |
301 |
(1 grep-error-face) |
(1 grep-error-face) |
302 |
(2 grep-error-face)) |
(2 grep-error-face)) |
303 |
|
("^[^\n-]+-[0-9]+-.*" (0 grep-context-face)) |
304 |
;; Highlight grep matches and delete markers |
;; Highlight grep matches and delete markers |
305 |
("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
306 |
;; Refontification does not work after the markers have been |
;; Refontification does not work after the markers have been |