mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-27 23:50:30 -08:00
Code Issues Projects Releases Wiki Activity

(enriched-face-ans): Handle face attributes

Browse source 
of the form `(FACE1 FACE2 ...).
This commit is contained in:
Gerd Moellmann 2001-10-29 12:26:42 +00:00
parent bfd5b3e8ce
commit b1d9c2cff4
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/enriched.el
View file

@ -352,6 +352,12 @@ One annotation each for foreground color, background color, italic, etc."
(list (list "x-color" (cdr face))))
((and (consp face) (eq (car face) 'background-color))
(list (list "x-bg-color" (cdr face))))
((and (consp face) (symbolp (car face)) (not (keywordp (car face))))
;; List of faces `(face1 face2 ...)'.
(let ((ans nil))
(dolist (elt face)
(setq ans (append ans (enriched-face-ans elt))))
ans))
((string-match "^fg:" (symbol-name face))
(list (list "x-color" (substring (symbol-name face) 3))))
((string-match "^bg:" (symbol-name face))