# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1082497310 0
# Node ID 4f12dee543dc598db4618ab42ca2124249a0e3ce
# Parent  a02bf82eebbd5f01985d5f3675c50b10a595070d
Undo previous change

diff -r a02bf82eebbd -r 4f12dee543dc lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Apr 20 21:19:44 2004 +0000
+++ b/lisp/ChangeLog	Tue Apr 20 21:41:50 2004 +0000
@@ -1,7 +1,3 @@
-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): 
diff -r a02bf82eebbd -r 4f12dee543dc lisp/progmodes/grep.el
--- a/lisp/progmodes/grep.el	Tue Apr 20 21:19:44 2004 +0000
+++ b/lisp/progmodes/grep.el	Tue Apr 20 21:41:50 2004 +0000
@@ -429,14 +429,13 @@
 		       'grep-mode nil highlight-regexp)))
 
 ;;;###autoload (autoload 'grep-mode "grep" nil t)
-(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)))
+(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 ()