[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/replace.el
From: |
Teodor Zlatanov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/replace.el |
Date: |
Mon, 29 Nov 2004 13:50:40 -0500 |
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