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_") |