(compilation-start): In the no-async-subprocesses branch, call

[gnu-emacs] / lisp / progmodes / grep.el

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