aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/faces.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el
index 81a6a953aa5..8ca9e40d7d2 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -374,8 +374,11 @@ completely specified)."
374 ;; VALUE is relative, so merge with inherited faces 374 ;; VALUE is relative, so merge with inherited faces
375 (let ((inh-from (face-attribute face :inherit frame))) 375 (let ((inh-from (face-attribute face :inherit frame)))
376 (unless (or (null inh-from) (eq inh-from 'unspecified)) 376 (unless (or (null inh-from) (eq inh-from 'unspecified))
377 (setq value 377 (condition-case nil
378 (face-attribute-merged-with attribute value inh-from frame))))) 378 (setq value
379 (face-attribute-merged-with attribute value inh-from frame))
380 ;; The `inherit' attribute may point to non existent faces.
381 (error nil)))))
379 (when (and inherit 382 (when (and inherit
380 (not (eq inherit t)) 383 (not (eq inherit t))
381 (face-attribute-relative-p attribute value)) 384 (face-attribute-relative-p attribute value))