[Emacs-diffs] Changes to emacs/lisp/replace.el

[Juanma Barranquero]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.154 emacs/lisp/replace.el:1.155
*** emacs/lisp/replace.el:1.154 Wed Aug 28 11:20:50 2002
--- emacs/lisp/replace.el       Thu Aug 29 17:35:44 2002
***************
*** 464,471 ****
    "Arguments to pass to `occur-1' to revert an Occur mode buffer.
  See `occur-revert-function'.")
  
! (defcustom occur-hook '(turn-on-font-lock)
!   "Hooks run when `occur' is called."
    :type 'hook
    :group 'matching)
  
--- 464,476 ----
    "Arguments to pass to `occur-1' to revert an Occur mode buffer.
  See `occur-revert-function'.")
  
! (defcustom occur-mode-hook '(turn-on-font-lock)
!   "Hook run when entering Occur mode."
!   :type 'hook
!   :group 'matching)
! 
! (defcustom occur-hook nil
!   "Hook run when `occur' is called."
    :type 'hook
    :group 'matching)
  
***************
*** 482,488 ****
    (setq major-mode 'occur-mode)
    (setq mode-name "Occur")
    (set (make-local-variable 'revert-buffer-function) 'occur-revert-function)
!   (make-local-variable 'occur-revert-arguments))
  
  (defun occur-revert-function (ignore1 ignore2)
    "Handle `revert-buffer' for Occur mode buffers."
--- 487,494 ----
    (setq major-mode 'occur-mode)
    (setq mode-name "Occur")
    (set (make-local-variable 'revert-buffer-function) 'occur-revert-function)
!   (make-local-variable 'occur-revert-arguments)
!   (run-hooks 'occur-mode-hook))
  
  (defun occur-revert-function (ignore1 ignore2)
    "Handle `revert-buffer' for Occur mode buffers."