374 |
;; VALUE is relative, so merge with inherited faces |
;; VALUE is relative, so merge with inherited faces |
375 |
(let ((inh-from (face-attribute face :inherit frame))) |
(let ((inh-from (face-attribute face :inherit frame))) |
376 |
(unless (or (null inh-from) (eq inh-from 'unspecified)) |
(unless (or (null inh-from) (eq inh-from 'unspecified)) |
377 |
(setq value |
(condition-case nil |
378 |
(face-attribute-merged-with attribute value inh-from frame))))) |
(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))))) |
382 |
(when (and inherit |
(when (and inherit |
383 |
(not (eq inherit t)) |
(not (eq inherit t)) |
384 |
(face-attribute-relative-p attribute value)) |
(face-attribute-relative-p attribute value)) |