Mercurial > emacs
comparison lisp/replace.el @ 4975:db0c6ed6f145
(occur-mode): Run occur-mode-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 11 Nov 1993 02:48:26 +0000 |
| parents | 847ef9a62e5d |
| children | 1b3421a9f072 |
comparison
equal
deleted
inserted
replaced
| 4974:09139fb51584 | 4975:db0c6ed6f145 |
|---|---|
| 225 (use-local-map occur-mode-map) | 225 (use-local-map occur-mode-map) |
| 226 (setq major-mode 'occur-mode) | 226 (setq major-mode 'occur-mode) |
| 227 (setq mode-name "Occur") | 227 (setq mode-name "Occur") |
| 228 (make-local-variable 'occur-buffer) | 228 (make-local-variable 'occur-buffer) |
| 229 (make-local-variable 'occur-nlines) | 229 (make-local-variable 'occur-nlines) |
| 230 (make-local-variable 'occur-pos-list)) | 230 (make-local-variable 'occur-pos-list) |
| 231 (run-hooks 'occur-mode-hook)) | |
| 231 | 232 |
| 232 (defun occur-mode-goto-occurrence () | 233 (defun occur-mode-goto-occurrence () |
| 233 "Go to the line this occurrence was found in, in the buffer it was found in." | 234 "Go to the line this occurrence was found in, in the buffer it was found in." |
| 234 (interactive) | 235 (interactive) |
| 235 (if (or (null occur-buffer) | 236 (if (or (null occur-buffer) |