Mercurial > emacs
changeset 55018:4f12dee543dc
Undo previous change
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Tue, 20 Apr 2004 21:41:50 +0000 |
| parents | a02bf82eebbd |
| children | 1d1cf16185df |
| files | lisp/ChangeLog lisp/progmodes/grep.el |
| diffstat | 2 files changed, 7 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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 ()