mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Allow using a single anonymous face in enriced-mode

Browse Source 
* lisp/format.el (format-annotate-single-property-change): Allow
using a single anonymous face (bug#33682).
This commit is contained in:
Lars Ingebrigtsen 2021-08-11 22:29:38 +02:00
parent 81fd380dea
commit 3b5f8ab0d0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/format.el
View File

@ -1013,6 +1013,12 @@ either strings, or lists of the form (PARAMETER VALUE)."
prop-alist (car old) nil))
close)
old (cdr old)))
;; If the font is on the format (:background "red"),
;; then we have a single face. We're assuming a list of
;; faces, so transform.
(when (and (listp new)
(keywordp (car new)))
(setq new (list new)))
(while new
(setq open
(append (cdr (format-annotate-atomic-property-change