Function: ert--erts-specifications

ert--erts-specifications is a byte-compiled function defined in ert.el.gz.

Signature

(ert--erts-specifications END)

Documentation

Find specifications before point (back to the previous test).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/ert.el.gz
(defun ert--erts-specifications (end)
  "Find specifications before point (back to the previous test)."
  (save-excursion
    (goto-char end)
    (goto-char
     (if (re-search-backward "^=-=-=\n" nil t)
         (match-end 0)
       (point-min)))
    (let ((specs nil))
      (while (< (point) end)
        (if (looking-at "\\([^ \n\t:]+\\):\\([ \t]+\\)?\\(.*\\)")
            (let ((name (intern (downcase (match-string 1))))
                  (value (match-string 3)))
              (forward-line 1)
              (while (looking-at "[ \t]+\\(.*\\)")
                (setq value (concat value (match-string 1)))
                (forward-line 1))
              (push (cons name (substring-no-properties value)) specs))
          (forward-line 1)))
      (nreverse specs))))