Function: custom-face-get-current-spec

custom-face-get-current-spec is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-face-get-current-spec FACE)

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-face-get-current-spec (face)
  (let ((spec (or (get face 'customized-face)
		  (get face 'saved-face)
		  (get face 'face-defface-spec)
		  ;; Attempt to construct it.
		  `((t ,(custom-face-attributes-get
			 face (selected-frame)))))))
    ;; If the user has changed this face in some other way,
    ;; edit it as the user has specified it.
    (if (not (face-spec-match-p face spec (selected-frame)))
	(setq spec `((t ,(face-attr-construct face (selected-frame))))))
    (custom-pre-filter-face-spec spec)))