Commit ed58ed83 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(enriched-face-ans): Handle '(foreground-color

. COLOR) and (background-color . COLOR).
parent 65d0af29
......@@ -348,7 +348,11 @@ One annotation each for foreground color, background color, italic, etc."
(defun enriched-face-ans (face)
"Return annotations specifying FACE."
(cond ((string-match "^fg:" (symbol-name face))
(cond ((and (consp face) (eq (car face) 'foreground-color))
(list "x-color" (cdr face)))
((and (consp face) (eq (car face) 'background-color))
(list "x-bg-color" (cdr face)))
((string-match "^fg:" (symbol-name face))
(list (list "x-color" (substring (symbol-name face) 3))))
((string-match "^bg:" (symbol-name face))
(list (list "x-bg-color" (substring (symbol-name face) 3))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment