Function: face-list-p

face-list-p is a byte-compiled function defined in faces.el.gz.

Signature

(face-list-p FACE-OR-LIST)

Documentation

True if FACE-OR-LIST is a list of faces.

Return nil if FACE-OR-LIST is a non-nil atom, or a cons cell whose car is either foreground-color, background-color, or a keyword.

Source Code

;; Defined in /usr/src/emacs/lisp/faces.el.gz
(defun face-list-p (face-or-list)
  "True if FACE-OR-LIST is a list of faces.
Return nil if FACE-OR-LIST is a non-nil atom, or a cons cell whose car
is either `foreground-color', `background-color', or a keyword."
  ;; The logic of merge_face_ref (xfaces.c) is recreated here.
  (and (listp face-or-list)
       (not (memq (car face-or-list)
		  '(foreground-color background-color)))
       (not (keywordp (car face-or-list)))))