From eb7a03cc7672f8179b9d1a403bb019e753ed907f Mon Sep 17 00:00:00 2001 From: Matthias Dahl Date: Sat, 5 Apr 2014 10:15:11 +0300 Subject: [PATCH] Fix bug #16694 with theme face precedence. lisp/faces.el (face-spec-recalc): Call make-face-x-resource-internal only when inhibit-x-resources is nil, and do that earlier in the function. Doc fix. --- lisp/ChangeLog | 6 ++++++ lisp/faces.el | 15 +++++++++++---- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7ab920990b4..a74e121c6bd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-04-05 Matthias Dahl + + * faces.el (face-spec-recalc): Call make-face-x-resource-internal + only when inhibit-x-resources is nil, and do that earlier in the + function. Doc fix. (Bug#16694) + 2014-04-04 Tassilo Horn * doc-view.el (doc-view-bookmark-jump): Use diff --git a/lisp/faces.el b/lisp/faces.el index e008993b49f..c6dd8d7a2d5 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1619,11 +1619,19 @@ function for its other effects." (defun face-spec-recalc (face frame) "Reset the face attributes of FACE on FRAME according to its specs. -This applies the defface/custom spec first, then the custom theme specs, -then the override spec." +After the reset, the specs are applied from the following sources in this order: + X resources (if applicable) + | + (theme and user customization) + or, if nonexistent or does not match the current frame, + (defface default spec) + | + defface override spec" (while (get face 'face-alias) (setq face (get face 'face-alias))) (face-spec-reset-face face frame) + (unless inhibit-x-resources + (make-face-x-resource-internal face frame)) ;; If FACE is customized or themed, set the custom spec from ;; `theme-face' records. (let ((theme-faces (get face 'theme-face)) @@ -1641,8 +1649,7 @@ then the override spec." (setq spec (face-spec-choose (face-default-spec face) frame)) (face-spec-set-2 face frame spec)) (setq spec (face-spec-choose (get face 'face-override-spec) frame)) - (face-spec-set-2 face frame spec)) - (make-face-x-resource-internal face frame)) + (face-spec-set-2 face frame spec))) (defun face-spec-set-2 (face frame spec) "Set the face attributes of FACE on FRAME according to SPEC." -- 2.39.2