From 4b3b524080aa897a39b20d1ff671af6d47ebd547 Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Sun, 17 Jan 2016 22:03:10 +0000 Subject: Cope with multiple overlapping faces. * lisp/htmlfontify.el (hfy-face-to-style-i): Treat inheritance right to left. (hfy-face-resolve-face): Handle font specification as well as font name --- lisp/htmlfontify.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index 178f3a00133..ca456c7a3d1 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el @@ -999,7 +999,7 @@ merged by the user - `hfy-flatten-style' should do this." (append parent (hfy-face-to-style-i - (hfy-face-attr-for-class v hfy-display-class)) )))) + (hfy-face-attr-for-class v hfy-display-class)))))) (setq this (if val (case key (:family (hfy-family val)) @@ -1018,7 +1018,7 @@ merged by the user - `hfy-flatten-style' should do this." (:italic (hfy-slant 'italic)))))) (setq that (hfy-face-to-style-i next)) ;;(lwarn t :warning "%S => %S" fn (nconc this that parent)) - (nconc this that parent))) ) + (nconc this parent that))) ) (defun hfy-size-to-int (spec) "Convert SPEC, a CSS font-size specifier, to an Emacs :height attribute value. @@ -1062,7 +1062,7 @@ haven't encountered them yet. Returns a `hfy-style-assoc'." ((and (symbolp fn) (facep (symbol-value fn))) (hfy-face-attr-for-class (symbol-value fn) hfy-display-class)) - (t nil))) + (t fn))) (defun hfy-face-to-style (fn) -- cgit v1.2.1