Fixes for Occur Edit mode.

* replace.el (occur-revert-arguments): Make it permanent-local.
(occur-mode): Don't call font-lock-defontify.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dcc91e9572accbbc786e845d37e5a091c17f0c42..54b8e1ff7a258fc2e71fd8b216c7d67ab4d0f847 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/replace.el b/lisp/replace.el
index 455e1a511e8a07b5b35028c41cb4dca4278792f7..bf6425f409918ae9bbf6ee5daf39bc92ce7d8f10 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -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))
 
 \f
@@ -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