From 4b33f2900fd2c3e832cbf3f1ba61fab8eb7ae368 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 11 Oct 2000 07:43:17 +0000 Subject: [PATCH] (frame-set-background-mode): Pay attention to saved face specs as well as default ones. --- lisp/ChangeLog | 5 +++++ lisp/faces.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2583bba11c..a8f2cad62ca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-10-11 Miles Bader + + * faces.el (frame-set-background-mode): Pay attention to saved + face specs as well as default ones. + 2000-10-10 Sam Steingold * chistory.el, ielm.el, ledit.el: diff --git a/lisp/faces.el b/lisp/faces.el index fffb177852c..6906c05447f 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1339,13 +1339,13 @@ this won't have the expected effect." (let ((face-list (face-list))) (while face-list (let* ((face (car face-list)) - (spec (get face 'face-defface-spec))) + (spec (or (get face 'saved-face) + (get face 'face-defface-spec)))) (when spec (face-spec-set face spec frame)) (setq face-list (cdr face-list)))))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Frame creation. -- 2.39.5