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

[Teodor Zlatanov]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.190 emacs/lisp/replace.el:1.191
*** emacs/lisp/replace.el:1.190 Sat Nov 20 22:09:50 2004
--- emacs/lisp/replace.el       Mon Nov 29 18:44:29 2004
***************
*** 734,750 ****
    "Move to the Nth (default 1) next match in an Occur mode buffer.
  Compatibility function for \\[next-error] invocations."
    (interactive "p")
!   (when reset
!     (occur-find-match 0 #'next-single-property-change "No first match"))
!   (occur-find-match
!    (prefix-numeric-value argp)
!    (if (> 0 (prefix-numeric-value argp))
!        #'previous-single-property-change
!      #'next-single-property-change)
!    "No more matches")
!   ;; In case the *Occur* buffer is visible in a nonselected window.
!   (set-window-point (get-buffer-window (current-buffer)) (point))
!   (occur-mode-goto-occurrence))
  
  
  (defcustom list-matching-lines-default-context-lines 0
--- 734,756 ----
    "Move to the Nth (default 1) next match in an Occur mode buffer.
  Compatibility function for \\[next-error] invocations."
    (interactive "p")
!   ;; we need to run occur-find-match from within the Occur buffer
!   (with-current-buffer 
!       (if (next-error-buffer-p (current-buffer))
!         (current-buffer)
!       (next-error-find-buffer nil nil (lambda() (eq major-mode 'occur-mode))))
!     
!     (when reset
!       (goto-char (point-min)))
!     (occur-find-match
!      (abs (prefix-numeric-value argp))
!      (if (> 0 (prefix-numeric-value argp))
!        #'previous-single-property-change
!        #'next-single-property-change)
!      "No more matches")
!     ;; In case the *Occur* buffer is visible in a nonselected window.
!     (set-window-point (get-buffer-window (current-buffer)) (point))
!     (occur-mode-goto-occurrence)))
  
  
  (defcustom list-matching-lines-default-context-lines 0