equal
deleted
inserted
replaced
43 |
43 |
44 (defvar my-ag/keywords |
44 (defvar my-ag/keywords |
45 '(("^[1-9][0-9]\\{0,5\\}:" . (0 'my-ag/lineno-face)) |
45 '(("^[1-9][0-9]\\{0,5\\}:" . (0 'my-ag/lineno-face)) |
46 ("^[^:]\\{6\\}.*" . (0 'my-ag/path-face)))) |
46 ("^[^:]\\{6\\}.*" . (0 'my-ag/path-face)))) |
47 |
47 |
48 (defun my-ag/font-lock-extend-region () |
|
49 (save-excursion |
|
50 (goto-char font-lock-beg) |
|
51 (forward-line 2) |
|
52 (setq font-lock-beg (point)))) |
|
53 |
|
54 (define-derived-mode my-ag-mode fundamental-mode "Ag" |
48 (define-derived-mode my-ag-mode fundamental-mode "Ag" |
55 "Major mode for Ag parsing." |
49 "Major mode for Ag parsing." |
56 (setq font-lock-defaults '(my-ag/keywords t nil nil)) ; (font-lock-multiline . t) |
50 (setq font-lock-defaults '(my-ag/keywords t nil nil)) ; (font-lock-multiline . t) |
57 ;; (add-hook 'font-lock-extend-region-functions 'my-ag/font-lock-extend-region) |
|
58 (use-local-map my-ag-mode-map)) |
51 (use-local-map my-ag-mode-map)) |
59 |
52 |
60 (defvar my-ag/buffer-name "*ag*") |
53 (defvar my-ag/buffer-name "*ag*") |
61 (defvar my-ag/buffer nil) |
54 (defvar my-ag/buffer nil) |
62 |
55 |