From 7f0d4d298d367d12200c96edf4631334145d6f09 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Tue, 20 Apr 2004 21:41:50 +0000 Subject: [PATCH] Undo previous change --- lisp/ChangeLog | 4 ---- lisp/progmodes/grep.el | 15 +++++++-------- 2 files changed, 7 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 738b17d50a0..8ba6c959b01 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,3 @@ -2004-04-20 Jan Dj,Ad(Brv - - * progmodes/grep.el (grep-mode): Add eval-when-compile. - 2004-04-20 Richard M. Stallman * window.el (split-window-save-restore-data): diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 77802b8e61e..94937ba1e87 100644 --- 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 () -- 2.39.2