[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Mixing named and anonymous faces in text properties
From: |
Stefan Monnier |
Subject: |
Re: Mixing named and anonymous faces in text properties |
Date: |
Mon, 29 Apr 2019 17:31:05 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) |
> 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))