-;;;###autoload
-(defun custom-theme-face-value (face theme)
- "Return spec of FACE in THEME if THEME modifies FACE.
-Value is nil otherwise. The association between theme and spec for FACE
-is stored in FACE's property `theme-face'. The appropriate face
-is retrieved using `custom-theme-value'."
- ;; Returns car because the value is stored inside a one element list
- (car-safe (custom-theme-value theme (get face 'theme-face))))
-
-(defun custom-theme-reset-internal-face (face to-theme)
- "Reset FACE to the value defined by TO-THEME.
-If FACE is not defined in TO-THEME, reset FACE to the standard
-value. See `custom-theme-face-value'. The standard value is
-stored in SYMBOL's property `face-defface-spec' by `defface'."
- (let ((spec (custom-theme-face-value face to-theme))
- was-in-theme)
- (setq was-in-theme spec)
- (setq spec (or spec (get face 'face-defface-spec)))
- (when spec
- (put face 'save-face was-in-theme)
- (when (or (get face 'force-face) (facep face))
- (unless (facep face)
- (make-empty-face face))
- (face-spec-set face spec)))
- spec))
-