Mercurial > emacs
changeset 41329:040cb763bd64
(occur-mode): Undo 2001-5-20 change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Nov 2001 23:25:34 +0000 |
| parents | ce510b959c35 |
| children | 36c0568bec2a |
| files | lisp/replace.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Tue Nov 20 23:17:45 2001 +0000 +++ b/lisp/replace.el Tue Nov 20 23:25:34 2001 +0000 @@ -445,17 +445,24 @@ (put 'occur-mode 'mode-class 'special) -(define-derived-mode occur-mode nil "Occur" +(defun occur-mode () "Major mode for output from \\[occur]. \\<occur-mode-map>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."