/[emacs]/emacs/lisp/progmodes/grep.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/grep.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by nickrob, Mon Aug 1 08:43:45 2005 UTC revision 1.42 by jurta, Thu Aug 4 01:08:54 2005 UTC
# Line 248  Notice that using \\[next-error] or \\[c Line 248  Notice that using \\[next-error] or \\[c
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
# Line 284  Notice that using \\[next-error] or \\[c Line 283  Notice that using \\[next-error] or \\[c
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)
# Line 298  Notice that using \\[next-error] or \\[c Line 300  Notice that using \\[next-error] or \\[c
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

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26