Mercurial > emacs
changeset 27792:de64340fea42
(enriched-face-ans): Handle '(foreground-color
. COLOR) and (background-color . COLOR).
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 21 Feb 2000 12:57:42 +0000 |
| parents | e2de8c3d9332 |
| children | d1722c46d998 |
| files | lisp/enriched.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/enriched.el Mon Feb 21 10:03:46 2000 +0000 +++ b/lisp/enriched.el Mon Feb 21 12:57:42 2000 +0000 @@ -348,7 +348,11 @@ (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))))