/[emacs]/emacs/lisp/enriched.el
ViewVC logotype

Diff of /emacs/lisp/enriched.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by gerd, Wed Nov 29 19:22:18 2000 UTC revision 1.30.14.1 by gerd, Mon Oct 29 12:26:42 2001 UTC
# Line 352  One annotation each for foreground color Line 352  One annotation each for foreground color
352           (list (list "x-color" (cdr face))))           (list (list "x-color" (cdr face))))
353          ((and (consp face) (eq (car face) 'background-color))          ((and (consp face) (eq (car face) 'background-color))
354           (list (list "x-bg-color" (cdr face))))           (list (list "x-bg-color" (cdr face))))
355            ((and (consp face) (symbolp (car face)) (not (keywordp (car face))))
356             ;; List of faces `(face1 face2 ...)'.
357             (let ((ans nil))
358               (dolist (elt face)
359                 (setq ans (append ans (enriched-face-ans elt))))
360               ans))
361          ((string-match "^fg:" (symbol-name face))          ((string-match "^fg:" (symbol-name face))
362           (list (list "x-color" (substring (symbol-name face) 3))))           (list (list "x-color" (substring (symbol-name face) 3))))
363          ((string-match "^bg:" (symbol-name face))          ((string-match "^bg:" (symbol-name face))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.30.14.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26