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

[Juanma Barranquero]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.153 emacs/lisp/replace.el:1.154
*** emacs/lisp/replace.el:1.153 Thu Jul 25 15:31:25 2002
--- emacs/lisp/replace.el       Wed Aug 28 11:20:50 2002
***************
*** 464,470 ****
    "Arguments to pass to `occur-1' to revert an Occur mode buffer.
  See `occur-revert-function'.")
  
! (defcustom occur-mode-hook '(turn-on-font-lock)
    "Hooks run when `occur' is called."
    :type 'hook
    :group 'matching)
--- 464,470 ----
    "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)
***************
*** 482,489 ****
    (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."
--- 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."
***************
*** 631,637 ****
  Here `original-buffer-name' is the buffer name were occur was originally run.
  When given the prefix argument, the renaming will not clobber the existing
  buffer(s) of that name, but use `generate-new-buffer-name' instead.
! You can add this to `occur-mode-hook' if you always want a separate *Occur*
  buffer for each buffer where you invoke `occur'."
    (interactive "P")
    (with-current-buffer
--- 630,636 ----
  Here `original-buffer-name' is the buffer name were occur was originally run.
  When given the prefix argument, the renaming will not clobber the existing
  buffer(s) of that name, but use `generate-new-buffer-name' instead.
! You can add this to `occur-hook' if you always want a separate *Occur*
  buffer for each buffer where you invoke `occur'."
    (interactive "P")
    (with-current-buffer
***************
*** 749,755 ****
              buffer-read-only t)
        (if (> count 0)
            (display-buffer occur-buf)
!         (kill-buffer occur-buf))))))
  
  (defun occur-engine-add-prefix (lines)
    (mapcar
--- 748,755 ----
              buffer-read-only t)
        (if (> count 0)
            (display-buffer occur-buf)
!         (kill-buffer occur-buf)))
!       (run-hooks 'occur-hook))))
  
  (defun occur-engine-add-prefix (lines)
    (mapcar