mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
. COLOR) and (background-color . COLOR).
This commit is contained in:
Gerd Moellmann 2000-02-21 12:57:42 +00:00
parent 65d0af2992
commit ed58ed834c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/enriched.el
View File

@ -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))))