Fixes for Occur Edit mode.

* replace.el (occur-revert-arguments): Make it permanent-local.
(occur-mode): Don't call font-lock-defontify.
This commit is contained in:
Leo Liu 2011-09-19 14:57:55 -04:00 committed by Chong Yidong
parent f01da43fd2
commit 08d355e3eb
2 changed files with 8 additions and 3 deletions

View file

@ -1,3 +1,8 @@
2011-09-19 Leo Liu <sdl.web@gmail.com>
* replace.el (occur-revert-arguments): Make it permanent-local.
(occur-mode): Don't call font-lock-defontify.
2011-09-19 Chong Yidong <cyd@stupidchicken.com>
* net/ldap.el (ldap-search-internal): Don't push empty search

View file

@ -826,6 +826,8 @@ a previously found match."
(defvar occur-revert-arguments nil
"Arguments to pass to `occur-1' to revert an Occur mode buffer.
See `occur-revert-function'.")
(make-variable-buffer-local 'occur-revert-arguments)
(put 'occur-revert-arguments 'permanent-local t)
(defcustom occur-mode-hook '(turn-on-font-lock)
"Hook run when entering Occur mode."
@ -853,8 +855,6 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it.
\\{occur-mode-map}"
(set (make-local-variable 'revert-buffer-function) 'occur-revert-function)
(make-local-variable 'occur-revert-arguments)
(add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
(setq next-error-function 'occur-next-error))
@ -876,7 +876,7 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it.
In this mode, changes to the *Occur* buffer are also applied to
the originating buffer.
To return to ordinary Occur mode, use \\[occur-mode]."
To return to ordinary Occur mode, use \\[occur-cease-edit]."
(setq buffer-read-only nil)
(add-hook 'after-change-functions 'occur-after-change-function nil t)
(message (substitute-command-keys