Mercurial > emacs
comparison lisp/progmodes/grep.el @ 55017:a02bf82eebbd
* progmodes/grep.el (grep-mode): Add eval-when-compile.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Tue, 20 Apr 2004 21:19:44 +0000 |
| parents | a4d3c17f991f |
| children | 4f12dee543dc |
comparison
equal
deleted
inserted
replaced
| 55016:a0f53ffa291a | 55017:a02bf82eebbd |
|---|---|
| 427 (concat command-args " " null-device) | 427 (concat command-args " " null-device) |
| 428 command-args) | 428 command-args) |
| 429 'grep-mode nil highlight-regexp))) | 429 'grep-mode nil highlight-regexp))) |
| 430 | 430 |
| 431 ;;;###autoload (autoload 'grep-mode "grep" nil t) | 431 ;;;###autoload (autoload 'grep-mode "grep" nil t) |
| 432 (define-compilation-mode grep-mode "Grep" | 432 (eval-when-compile |
| 433 "Sets `grep-last-buffer' and `compilation-window-height'." | 433 (define-compilation-mode grep-mode "Grep" |
| 434 (setq grep-last-buffer (current-buffer)) | 434 "Sets `grep-last-buffer' and `compilation-window-height'." |
| 435 (set (make-local-variable 'compilation-error-face) | 435 (setq grep-last-buffer (current-buffer)) |
| 436 grep-hit-face) | 436 (set (make-local-variable 'compilation-error-face) |
| 437 (set (make-local-variable 'compilation-error-regexp-alist) | 437 grep-hit-face) |
| 438 grep-regexp-alist)) | 438 (set (make-local-variable 'compilation-error-regexp-alist) |
| 439 grep-regexp-alist))) | |
| 439 | 440 |
| 440 ;; This is a copy of find-tag-default from etags.el. | 441 ;; This is a copy of find-tag-default from etags.el. |
| 441 (defun grep-tag-default () | 442 (defun grep-tag-default () |
| 442 (save-excursion | 443 (save-excursion |
| 443 (while (looking-at "\\sw\\|\\s_") | 444 (while (looking-at "\\sw\\|\\s_") |