# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1277663082 14400
# Node ID 3c15269db19659215873abf5325ba1d307334c11
# Parent  81cfe104e9298cce150dd367f49bb2ee12ad5dfc
Minor fix for htmlfontify.el (Bug#6239).
* htmlfontify.el (hfy-face-attr-for-class): Use `append' instead
of `nconc' (Bug#6239).

diff -r 81cfe104e929 -r 3c15269db196 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jun 27 14:03:26 2010 -0400
+++ b/lisp/ChangeLog	Sun Jun 27 14:24:42 2010 -0400
@@ -1,3 +1,8 @@
+2010-06-27  Masatake YAMATO  <yamato@redhat.com>
+
+	* htmlfontify.el (hfy-face-attr-for-class): Use `append' instead
+	of `nconc' (Bug#6239).
+
 2010-06-27  Christoph  <cschol2112@googlemail.com>  (tiny change)
 
 	* bookmark.el (bookmark-bmenu-2-window)
diff -r 81cfe104e929 -r 3c15269db196 lisp/htmlfontify.el
--- a/lisp/htmlfontify.el	Sun Jun 27 14:03:26 2010 -0400
+++ b/lisp/htmlfontify.el	Sun Jun 27 14:24:42 2010 -0400
@@ -959,7 +959,7 @@
                new-spec)))))
     (if (or (memq :inherit face-spec) (eq 'default face))
         face-spec
-      (nconc face-spec (list :inherit 'default))) ))
+      (append face-spec (list :inherit 'default)))))
 
 ;; construct an assoc of (css-tag-name . css-tag-value) pairs
 ;; from a face or assoc of face attributes: