From 3faf4eb37f5f984f4d1e188f6d8873242e6d2523 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Tue, 20 Apr 2004 21:19:44 +0000 Subject: [PATCH] * progmodes/grep.el (grep-mode): Add eval-when-compile. --- lisp/ChangeLog | 4 ++++ lisp/progmodes/grep.el | 15 ++++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ba6c959b01..738b17d50a0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +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 94937ba1e87..77802b8e61e 100644 --- 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 () -- 2.39.5