Mercurial > emacs
comparison lisp/progmodes/grep.el @ 59991:a518aec8f272
(grep-regexp-alist): Match an optional ^[[K
that some versions of grep produce.
(grep-mode-font-lock-keywords): Likewise.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 08 Feb 2005 16:22:25 +0000 |
| parents | 3761d1e2619d |
| children | aac0a33f5772 |
comparison
equal
deleted
inserted
replaced
| 59990:c16a4b053f44 | 59991:a518aec8f272 |
|---|---|
| 251 ;; because it causes confusion and so we will find out if anyone needs it. | 251 ;; because it causes confusion and so we will find out if anyone needs it. |
| 252 ;; It causes confusion with a file name that contains a number in parens. | 252 ;; It causes confusion with a file name that contains a number in parens. |
| 253 '(("^\\(.+?\\)[: \t]+\ | 253 '(("^\\(.+?\\)[: \t]+\ |
| 254 \\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\ | 254 \\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\ |
| 255 \\(?:-\\(?:\\([0-9]+\\)\\3\\)?\\.?\\([0-9]+\\)?\\)?[: \t]" 1 (2 . 5) (4 . 6)) | 255 \\(?:-\\(?:\\([0-9]+\\)\\3\\)?\\.?\\([0-9]+\\)?\\)?[: \t]" 1 (2 . 5) (4 . 6)) |
| 256 ("^\\(.+?\\)[:(]+\\([0-9]+\\)\\([:)]\\).*?\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\)" | 256 ("^\\(.+?\\)[:(]+\\([0-9]+\\)\\([:)]\\).*?\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(\033\\[K\\)?\\)" |
| 257 1 2 | 257 1 2 |
| 258 ;; Calculate column positions (beg . end) of first grep match on a line | 258 ;; Calculate column positions (beg . end) of first grep match on a line |
| 259 ((lambda () | 259 ((lambda () |
| 260 (setq compilation-error-screen-columns nil) | 260 (setq compilation-error-screen-columns nil) |
| 261 (- (match-beginning 5) (match-end 3) 8)) | 261 (- (match-beginning 5) (match-end 3) 8)) |
| 291 ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" | 291 ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" |
| 292 (0 '(face nil message nil help-echo nil mouse-face nil) t) | 292 (0 '(face nil message nil help-echo nil mouse-face nil) t) |
| 293 (1 compilation-warning-face) | 293 (1 compilation-warning-face) |
| 294 (2 compilation-line-face)) | 294 (2 compilation-line-face)) |
| 295 ;; Highlight grep matches and delete markers | 295 ;; Highlight grep matches and delete markers |
| 296 ("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\)" | 296 ("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(\033\\[K\\)?\\)" |
| 297 (2 grep-match-face) | 297 (2 grep-match-face) |
| 298 ((lambda (p)) | 298 ((lambda (p)) |
| 299 (progn | 299 (progn |
| 300 ;; Delete markers with `replace-match' because it updates | 300 ;; Delete markers with `replace-match' because it updates |
| 301 ;; the match-data, whereas `delete-region' would render it obsolete. | 301 ;; the match-data, whereas `delete-region' would render it obsolete. |