Function: occur--set-arrow

occur--set-arrow is a byte-compiled function defined in replace.el.gz.

Signature

(occur--set-arrow)

Documentation

Set the overlay arrow at the first line of the occur match at point.

Source Code

;; Defined in /usr/src/emacs/lisp/replace.el.gz
(defun occur--set-arrow ()
  "Set the overlay arrow at the first line of the occur match at point."
  (save-excursion
    (let ((target (get-text-property (point) 'occur-target))
          ;; Find the start of the occur match, in case it's multi-line.
          (prev (previous-single-property-change (point) 'occur-target)))
      (when (and prev (eq (get-text-property prev 'occur-target) target))
        (goto-char prev))
      (setq overlay-arrow-position
            (set-marker (or overlay-arrow-position (make-marker))
                        (line-beginning-position))))))