[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/replace.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/replace.el |
Date: |
Tue, 20 Nov 2001 18:25:34 -0500 |
Index: emacs/lisp/replace.el
diff -u emacs/lisp/replace.el:1.122 emacs/lisp/replace.el:1.123
--- emacs/lisp/replace.el:1.122 Sun Nov 11 15:05:39 2001
+++ emacs/lisp/replace.el Tue Nov 20 18:25:34 2001
@@ -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."