bug#21990: htmlfontify fails to generate highly highlighted regions

[Phillip Lord]

Hong Xu <hong@topbug.net> writes:
> I've tested it---yes now the highlighted regions display differently,
> but the highlighting actually is just the same as the background...
>
> I've attached the generated html file, so you can view it.


Hmmm. Just test the same file at my end, and it seems to work fine (see
attached).

Did you do this with emacs -q?

 
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 178f3a0..ca456c7 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)