Function: tuareg-smie--forward-sexp-and

tuareg-smie--forward-sexp-and is a natively compiled function defined in tuareg.el.

Signature

(tuareg-smie--forward-sexp-and)

Documentation

Memoised (smie-forward-sexp "and"), point motion only.

Source Code

;; Defined in /nix/store/6mbh851dhnag8f92qfrlh9ckldzwf6c6-emacs-packages-deps/share/emacs/site-lisp/elpa/tuareg-20260626.936/tuareg.el
(defun tuareg-smie--forward-sexp-and ()
  "Memoised (smie-forward-sexp \"and\"), point motion only."
  (let* ((tick (buffer-chars-modified-tick))
         (cache-valid (eql tuareg-smie--and-cache-tick tick))
         (cached (and cache-valid
                      (assq (point) tuareg-smie--forward-and-cache))))
    (if cached
        (goto-char (cdr cached))
      (unless cache-valid
        (setq tuareg-smie--forward-and-cache nil)
        (setq tuareg-smie--backward-and-cache nil)
        (setq tuareg-smie--and-cache-tick tick))
      (let ((pt (point)))
        (smie-forward-sexp "and")
        (push (cons pt (point)) tuareg-smie--forward-and-cache)))))