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

[Juanma Barranquero]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.216 emacs/lisp/replace.el:1.217
*** emacs/lisp/replace.el:1.216 Sat Jul  2 18:08:49 2005
--- emacs/lisp/replace.el       Sun Jul  3 22:49:00 2005
***************
*** 719,725 ****
    :group 'matching)
  
  (defcustom occur-hook nil
!   "Hook run when `occur' is called."
    :type 'hook
    :group 'matching)
  
--- 719,725 ----
    :group 'matching)
  
  (defcustom occur-hook nil
!   "Hook run by Occur when there are any matches."
    :type 'hook
    :group 'matching)
  
***************
*** 1042,1055 ****
                     (if (= count 1) "" "es")
                     regexp))
          (setq occur-revert-arguments (list regexp nlines bufs))
!         (if (> count 0)
!             (progn
!               (display-buffer occur-buf)
!               (setq next-error-last-buffer occur-buf)
!                 (setq buffer-read-only t)
!                 (set-buffer-modified-p nil))
!           (kill-buffer occur-buf)))
!       (run-hooks 'occur-hook)))))
  
  (defun occur-engine-add-prefix (lines)
    (mapcar
--- 1042,1054 ----
                     (if (= count 1) "" "es")
                     regexp))
          (setq occur-revert-arguments (list regexp nlines bufs))
!           (if (= count 0)
!               (kill-buffer occur-buf)
!             (display-buffer occur-buf)
!             (setq next-error-last-buffer occur-buf)
!             (setq buffer-read-only t)
!             (set-buffer-modified-p nil)
!             (run-hooks 'occur-hook)))))))
  
  (defun occur-engine-add-prefix (lines)
    (mapcar