Function: tuareg--pattern-equal-matcher

tuareg--pattern-equal-matcher is a natively compiled function defined in tuareg.el.

Signature

(tuareg--pattern-equal-matcher LIMIT)

Documentation

Find "=" and "+=" and remove its highlighting.

Source Code

;; Defined in /nix/store/6mbh851dhnag8f92qfrlh9ckldzwf6c6-emacs-packages-deps/share/emacs/site-lisp/elpa/tuareg-20260626.936/tuareg.el
(defun tuareg--pattern-equal-matcher (limit)
  "Find \"=\" and \"+=\" and remove its highlighting."
  (unless (tuareg--font-lock-in-string-or-comment)
    (let (pos)
      (while (and
              (<= (point) limit)
              (setq pos (re-search-forward "[+=({[]" limit t))
              (progn
                (backward-char)
                (cond
                 ((or (char-equal ?\( (char-after))
                      (char-equal ?{  (char-after))
                      (char-equal ?\[ (char-after)))
                  ;; Skip balanced braces
                  (if (ignore-errors (forward-list))
                      t
                    (goto-char (1- pos))
                    nil)) ; If braces are not balanced, stop.
                 ((char-equal ?+ (char-after))
                  (if (char-equal ?= (char-after pos))
                      (put-text-property (point) (1+ pos) 'face nil)
                    (forward-char)
                    t))
                 (t
                  (put-text-property (point) (1+ (point)) 'face nil))))))
      nil)))