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 |