* progmodes/grep.el (grep-mode): Add eval-when-compile.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ba6c959b014708cd562ad68e27eb40102aed21a..738b17d50a047da49eb4eb2ad8589a905ef7e963 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-20  Jan Dj\e,Ad\e(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): 

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 94937ba1e87bcf9aa382ac2efa92d9378bc02190..77802b8e61ed79bbb593c3bdb317bdef9c235e98 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -429,13 +429,14 @@ temporarily highlight in visited source lines."
                       '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 ()