/[emacs]/emacs/lisp/replace.el
ViewVC logotype

Diff of /emacs/lisp/replace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.190 by rms, Sat Nov 20 22:09:50 2004 UTC revision 1.191 by tzz, Mon Nov 29 18:44:29 2004 UTC
# Line 734  Alternatively, click \\[occur-mode-mouse Line 734  Alternatively, click \\[occur-mode-mouse
734    "Move to the Nth (default 1) next match in an Occur mode buffer.    "Move to the Nth (default 1) next match in an Occur mode buffer.
735  Compatibility function for \\[next-error] invocations."  Compatibility function for \\[next-error] invocations."
736    (interactive "p")    (interactive "p")
737    (when reset    ;; we need to run occur-find-match from within the Occur buffer
738      (occur-find-match 0 #'next-single-property-change "No first match"))    (with-current-buffer
739    (occur-find-match        (if (next-error-buffer-p (current-buffer))
740     (prefix-numeric-value argp)            (current-buffer)
741     (if (> 0 (prefix-numeric-value argp))          (next-error-find-buffer nil nil (lambda() (eq major-mode 'occur-mode))))
742         #'previous-single-property-change      
743       #'next-single-property-change)      (when reset
744     "No more matches")        (goto-char (point-min)))
745    ;; In case the *Occur* buffer is visible in a nonselected window.      (occur-find-match
746    (set-window-point (get-buffer-window (current-buffer)) (point))       (abs (prefix-numeric-value argp))
747    (occur-mode-goto-occurrence))       (if (> 0 (prefix-numeric-value argp))
748             #'previous-single-property-change
749           #'next-single-property-change)
750         "No more matches")
751        ;; In case the *Occur* buffer is visible in a nonselected window.
752        (set-window-point (get-buffer-window (current-buffer)) (point))
753        (occur-mode-goto-occurrence)))
754    
755    
756  (defcustom list-matching-lines-default-context-lines 0  (defcustom list-matching-lines-default-context-lines 0

Legend:
Removed from v.1.190  
changed lines
  Added in v.1.191

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26