diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-11 22:29:38 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-11 22:29:38 +0200 |
| commit | 3b5f8ab0d06f6c39aaa716b6279c2ceb4bfc5b14 (patch) | |
| tree | 355565083809b2ae475d0a367915c0051fc7d400 /lisp/format.el | |
| parent | 81fd380dea4d4e66d2a93b708caa0e2a9c79de4a (diff) | |
| download | emacs-3b5f8ab0d06f6c39aaa716b6279c2ceb4bfc5b14.tar.gz | |
Allow using a single anonymous face in enriced-mode
* lisp/format.el (format-annotate-single-property-change): Allow
using a single anonymous face (bug#33682).
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/format.el b/lisp/format.el index 1e87d252844..71cf885d417 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -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 |