Function: ert-font-lock--parse-macro-args

ert-font-lock--parse-macro-args is a byte-compiled function defined in ert-font-lock.el.gz.

Signature

(ert-font-lock--parse-macro-args DOC-KEYS-MODE-ARG)

Documentation

Parse DOC-KEYS-MODE-ARG macro argument list.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/ert-font-lock.el.gz
(defun ert-font-lock--parse-macro-args (doc-keys-mode-arg)
  "Parse DOC-KEYS-MODE-ARG macro argument list."
  (let (doc mode arg)

    (when (stringp (car doc-keys-mode-arg))
      (setq doc (pop doc-keys-mode-arg)))

    (pcase-let
        ((`(,keys ,mode-arg)
          (ert--parse-keys-and-body doc-keys-mode-arg)))

      (unless (symbolp (car mode-arg))
        (error "Expected a major mode symbol: %S" (car mode-arg)))
      (setq mode (pop mode-arg))

      (unless (stringp (car mode-arg))
        (error "Expected a string or file with assertions: %S" (car mode-arg)))
      (setq arg (pop mode-arg))

      (list doc keys mode arg))))