Function: erts-mode--in-test-p

erts-mode--in-test-p is a byte-compiled function defined in erts-mode.el.gz.

Signature

(erts-mode--in-test-p POINT)

Documentation

Say whether POINT is in a test.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/erts-mode.el.gz
(defun erts-mode--in-test-p (point)
  "Say whether POINT is in a test."
  (save-excursion
    (goto-char point)
    (beginning-of-line)
    (if (looking-at "=-=\\(-=\\)?$")
        t
      (let ((test-start (save-excursion
                          (re-search-backward "^=-=\n" nil t))))
        ;; Before the first test.
        (and test-start
             (let ((test-end (re-search-backward "^=-=-=\n" nil t)))
               (or (null test-end)
                   ;; Between tests.
                   (> test-start test-end))))))))