Function: use-package-normalize/:custom-face

use-package-normalize/:custom-face is a byte-compiled function defined in use-package-core.el.gz.

Signature

(use-package-normalize/:custom-face NAME-SYMBOL KEYWORD ARG)

Documentation

Normalize use-package custom-face keyword.

Source Code

;; Defined in /usr/src/emacs/lisp/use-package/use-package-core.el.gz
;;;; :custom-face

(defun use-package-normalize/:custom-face (name-symbol _keyword arg)
  "Normalize use-package custom-face keyword."
  (let ((error-msg
         (format "%s wants a (<symbol> <face-spec> [spec-type]) or list of these"
                 name-symbol)))
    (unless (listp arg)
      (use-package-error error-msg))
    (cl-dolist (def arg arg)
      (unless (listp def)
        (use-package-error error-msg))
      (let ((face (nth 0 def))
            (spec (nth 1 def)))
        (when (or (not face)
                  (not spec)
                  (> (length def) 3))
          (use-package-error error-msg))))))