Mercurial > emacs
changeset 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 | a0f53ffa291a |
| children | 4f12dee543dc |
| files | lisp/ChangeLog lisp/progmodes/grep.el |
| diffstat | 2 files changed, 12 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 20 20:58:30 2004 +0000 +++ b/lisp/ChangeLog Tue Apr 20 21:19:44 2004 +0000 @@ -1,3 +1,7 @@ +2004-04-20 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> + + * progmodes/grep.el (grep-mode): Add eval-when-compile. + 2004-04-20 Richard M. Stallman <rms@gnu.org> * window.el (split-window-save-restore-data):
--- a/lisp/progmodes/grep.el Tue Apr 20 20:58:30 2004 +0000 +++ b/lisp/progmodes/grep.el Tue Apr 20 21:19:44 2004 +0000 @@ -429,13 +429,14 @@ 'grep-mode nil highlight-regexp))) ;;;###autoload (autoload 'grep-mode "grep" nil t) -(define-compilation-mode grep-mode "Grep" - "Sets `grep-last-buffer' and `compilation-window-height'." - (setq grep-last-buffer (current-buffer)) - (set (make-local-variable 'compilation-error-face) - grep-hit-face) - (set (make-local-variable 'compilation-error-regexp-alist) - grep-regexp-alist)) +(eval-when-compile + (define-compilation-mode grep-mode "Grep" + "Sets `grep-last-buffer' and `compilation-window-height'." + (setq grep-last-buffer (current-buffer)) + (set (make-local-variable 'compilation-error-face) + grep-hit-face) + (set (make-local-variable 'compilation-error-regexp-alist) + grep-regexp-alist))) ;; This is a copy of find-tag-default from etags.el. (defun grep-tag-default ()