ag.el
changeset 1498 e8ad022540d4
parent 1496 4b336f352950
child 1501 636e49ed6d27
equal deleted inserted replaced
1497:9a881de3da24 1498:e8ad022540d4
    39 (defface my/ag-path-face
    39 (defface my/ag-path-face
    40   '((t :inherit success))
    40   '((t :inherit success))
    41   "Face for line number.")
    41   "Face for line number.")
    42 
    42 
    43 (defvar my/ag-keywords
    43 (defvar my/ag-keywords
    44   '(("[1-9][0-9]\\{0,3\\}:" . (0 'my/ag-lineno-face))
    44   '(("[1-9][0-9]\\{0,5\\}:" . (0 'my/ag-lineno-face))
    45     ("^[^:]\\{4\\}.*" . (0 'my/ag-path-face))))
    45     ("^[^:]\\{6\\}.*" . (0 'my/ag-path-face))))
    46 
    46 
    47 (defun my/ag-font-lock-extend-region ()
    47 (defun my/ag-font-lock-extend-region ()
    48   (save-excursion
    48   (save-excursion
    49     (goto-char font-lock-beg)
    49     (goto-char font-lock-beg)
    50     (forward-line 2)
    50     (forward-line 2)