Function: tuareg-smie--search-backward

tuareg-smie--search-backward is a natively compiled function defined in tuareg.el.

Signature

(tuareg-smie--search-backward TOKENS)

Source Code

;; Defined in /nix/store/6mbh851dhnag8f92qfrlh9ckldzwf6c6-emacs-packages-deps/share/emacs/site-lisp/elpa/tuareg-20260626.936/tuareg.el
(defun tuareg-smie--search-backward (tokens)
  (let (tok)
    (while (progn
             (setq tok (tuareg-smie--backward-token))
             (if (not (zerop (length tok)))
                 (not (member tok tokens))
               (unless (bobp)
                 (condition-case err
                     (progn (backward-sexp) t)
                   (scan-error
                    (setq tok (buffer-substring (nth 3 err) (1+ (nth 3 err))))
                    nil))))))
    tok))