From 505847d46117471a429df6ff483db0a029fbafb0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Nov 2001 23:28:57 +0000 Subject: [PATCH] (occur-mode): Undo 2001-5-20 change. --- lisp/ChangeLog | 10 ++++++---- lisp/replace.el | 11 +++++++++-- 2 files changed, 15 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec70de201ed..f41664569b4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,12 @@ +2001-11-20 Richard M. Stallman + + * replace.el (occur-mode): Undo 2001-5-20 change. + 2001-11-20 Eli Zaretskii - * play/landmark.el: Mark lm-mode as special. Suggested by Klaus - Straubinger . + * play/landmark.el: Mark lm-mode as special. - * play/gomoku.el: Mark gomoku-mode as special. Suggested by Klaus - Straubinger . + * play/gomoku.el: Mark gomoku-mode as special. 2001-11-20 Juanma Barranquero diff --git a/lisp/replace.el b/lisp/replace.el index 1082caadc7b..ee0c2ba7a85 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -445,17 +445,24 @@ end of the buffer." (put 'occur-mode 'mode-class 'special) -(define-derived-mode occur-mode nil "Occur" +(defun occur-mode () "Major mode for output from \\[occur]. \\Move point to one of the items in this buffer, then use \\[occur-mode-goto-occurrence] to go to the occurrence that the item refers to. Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it. \\{occur-mode-map}" + (kill-all-local-variables) + (use-local-map occur-mode-map) + (setq major-mode 'occur-mode) + (setq mode-name "Occur") + (make-local-variable 'revert-buffer-function) + (setq revert-buffer-function 'occur-revert-function) (set (make-local-variable 'revert-buffer-function) 'occur-revert-function) (make-local-variable 'occur-buffer) (make-local-variable 'occur-nlines) - (make-local-variable 'occur-command-arguments)) + (make-local-variable 'occur-command-arguments) + (run-hooks 'occur-mode-hook)) (defun occur-revert-function (ignore1 ignore2) "Handle `revert-buffer' for *Occur* buffers." -- 2.39.2