Re: Mixing named and anonymous faces in text properties

[Stefan Monnier <monnier@IRO.UMontreal.CA>]

> I since took a look at font-lock-prepend-text-property and cooked up the
> attached patch;

Thanks, I installed the slightly simpler version below,


        Stefan


@@ -1392,7 +1392,9 @@ font-lock-prepend-text-property
 Arguments PROP and VALUE specify the property and value to prepend to the value
 already in place.  The resulting property values are always lists.
 Optional argument OBJECT is the string or buffer containing the text."
-  (let ((val (if (listp value) value (list value))) next prev)
+  (let ((val (if (and (listp value) (not (keywordp (car value)))) value
+               (list value)))
+        next prev)
     (while (/= start end)
       (setq next (next-single-property-change start prop object end)
 	    prev (get-text-property start prop object))