Function: combobulate--navigate-scan

combobulate--navigate-scan is a natively compiled function defined in combobulate-navigation.el.

Signature

(combobulate--navigate-scan TEXT DIRECTION)

Documentation

Scan for TEXT in DIRECTION.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-navigation.el
(defun combobulate--navigate-scan (text direction)
  "Scan for TEXT in DIRECTION."
  (save-excursion
    (let ((text (rx symbol-start (literal text) symbol-end)))
      (if (funcall
           (if (eq direction 'next) #'re-search-forward #'re-search-backward)
           text
           nil
           t
           ;; Skip ahead of the text at point if it matches TEXT. We want
           ;; the match before/after that.
           (if (and (eq direction 'next) (looking-at-p text)) 2 1))
          (combobulate-proxy-node-make-from-range (match-beginning 0) (match-end 0) "Scan" text)
        (error "No more matches for `%s'" text)))))