diff options
author | Gerd Moellmann <[email protected]> | 2000-02-21 12:57:42 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-02-21 12:57:42 +0000 |
commit | ed58ed834c342bb2dc4fc7f4e70d34d0e782173a (patch) | |
tree | 6d631cdd69d83ce85dd952c9639b8f93473be8da /lisp | |
parent | 65d0af2992a3fa28bd9ac8ca20133220273d5bae (diff) |
(enriched-face-ans): Handle '(foreground-color
. COLOR) and (background-color . COLOR).
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/enriched.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/enriched.el b/lisp/enriched.el index 50f919e12c..a7f3ad6cdf 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el @@ -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)))) |