Function: calcAlg-blink-matching-check

calcAlg-blink-matching-check is a byte-compiled function defined in calc-aent.el.gz.

Signature

(calcAlg-blink-matching-check LEFTPT RIGHTPT)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-aent.el.gz
(defun calcAlg-blink-matching-check (leftpt rightpt)
  (let ((rightchar (char-before rightpt))
        (leftchar (if leftpt (char-after leftpt))))
    (if (and leftpt
             (or (and (= rightchar ?\))
                      (= leftchar ?\[))
                 (and (= rightchar ?\])
                      (= leftchar ?\()))
             (save-excursion
               (goto-char leftpt)
               (looking-at ".+\\(\\.\\.\\|\\\\dots\\|\\\\ldots\\)")))
        ;; [2..5) perfectly valid!
        nil
      (blink-matching-check-mismatch leftpt rightpt))))