Function: facemenu-complete-face-list

facemenu-complete-face-list is a byte-compiled function defined in facemenu.el.gz.

Signature

(facemenu-complete-face-list &optional OLDLIST)

Documentation

Return list of all faces that look different.

Starts with given ALIST of faces, and adds elements only if they display differently from any face already on the list. The faces on ALIST will end up at the end of the returned list, in reverse order.

Source Code

;; Defined in /usr/src/emacs/lisp/facemenu.el.gz
(defun facemenu-complete-face-list (&optional oldlist)
  "Return list of all faces that look different.
Starts with given ALIST of faces, and adds elements only if they display
differently from any face already on the list.
The faces on ALIST will end up at the end of the returned list, in reverse
order."
  (let ((list (nreverse (mapcar 'car oldlist))))
    (facemenu-iterate
     (lambda (new-face)
       (if (not (memq new-face list))
	   (setq list (cons new-face list)))
       nil)
     (nreverse (face-list)))
    list))