Function: occur-find-match

occur-find-match is a byte-compiled function defined in replace.el.gz.

Signature

(occur-find-match N SEARCH MESSAGE)

Source Code

;; Defined in /usr/src/emacs/lisp/replace.el.gz
(defun occur-find-match (n search message)
  (if (not n) (setq n 1))
  (let ((r))
    (while (> n 0)
      (setq r (funcall search (point) 'occur-match))
      (and r
           (get-text-property r 'occur-match)
           (setq r (funcall search r 'occur-match)))
      (if r
          (goto-char r)
        (user-error message))
      (setq n (1- n)))))