489 |
(setq mode-name "Occur") |
(setq mode-name "Occur") |
490 |
(set (make-local-variable 'revert-buffer-function) 'occur-revert-function) |
(set (make-local-variable 'revert-buffer-function) 'occur-revert-function) |
491 |
(make-local-variable 'occur-revert-arguments) |
(make-local-variable 'occur-revert-arguments) |
492 |
|
(add-hook 'change-major-mode-hook 'font-lock-defontify nil t) |
493 |
(run-hooks 'occur-mode-hook)) |
(run-hooks 'occur-mode-hook)) |
494 |
|
|
495 |
(defun occur-revert-function (ignore1 ignore2) |
(defun occur-revert-function (ignore1 ignore2) |