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

(enriched-face-ans): FIx previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 2001-10-30 18:19:46 +00:00
parent 259cf6bcbb
commit 2dc96f0f8e
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/enriched.el
View File

@ -347,17 +347,16 @@ One annotation each for foreground color, background color, italic, etc."
(and new (enriched-face-ans new))))
(defun enriched-face-ans (face)
"Return annotations specifying FACE."
"Return annotations specifying FACE.
FACE may be a list of faces instead of a single face;
it can also be anything allowed as an element of a list
which can be the value of the `face' text property."
(cond ((and (consp face) (eq (car face) 'foreground-color))
(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))
((listp face)
(apply 'append (mapcar 'enriched-face-ans face)))
((string-match "^fg:" (symbol-name face))
(list (list "x-color" (substring (symbol-name face) 3))))
((string-match "^bg:" (symbol-name face))