/[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.39 by pj, Sun Jan 6 11:35:17 2002 UTC revision 1.40 by eliz, Sun Mar 24 19:14:32 2002 UTC
# Line 341  which can be the value of the `face' tex Line 341  which can be the value of the `face' tex
341           (list (list "x-color" (cdr face))))           (list (list "x-color" (cdr face))))
342          ((and (consp face) (eq (car face) 'background-color))          ((and (consp face) (eq (car face) 'background-color))
343           (list (list "x-bg-color" (cdr face))))           (list (list "x-bg-color" (cdr face))))
344            ((and (listp face) (eq (car face) :foreground))
345             (list (list "x-color" (cadr face))))
346            ((and (listp face) (eq (car face) :background))
347             (list (list "x-bg-color" (cadr face))))
348          ((listp face)          ((listp face)
349           (apply 'append (mapcar 'enriched-face-ans face)))           (apply 'append (mapcar 'enriched-face-ans face)))
350          ((string-match "^fg:" (symbol-name face))          ((string-match "^fg:" (symbol-name face))
# Line 436  Return value is \(begin end name positiv Line 440  Return value is \(begin end name positiv
440      (cond ((null color)      (cond ((null color)
441             (message "Warning: no color specified for <x-color>"))             (message "Warning: no color specified for <x-color>"))
442            ((facep face))            ((facep face))
443            ((and (display-color-p) (facemenu-get-face face)))            ((and (display-color-p) (facemenu-get-face face))
444               (set-face-foreground face color))
445            ((make-face face)            ((make-face face)
446             (message "Warning: color `%s' can't be displayed" color)))             (message "Warning: color `%s' can't be displayed" color)))
447      (list from to 'face face)))      (list from to 'face face)))
# Line 446  Return value is \(begin end name positiv Line 451  Return value is \(begin end name positiv
451      (cond ((null color)      (cond ((null color)
452             (message "Warning: no color specified for <x-bg-color>"))             (message "Warning: no color specified for <x-bg-color>"))
453            ((facep face))            ((facep face))
454            ((and (display-color-p) (facemenu-get-face face)))            ((and (display-color-p) (facemenu-get-face face))
455               (set-face-background face color))
456            ((make-face face)            ((make-face face)
457             (message "Warning: color `%s' can't be displayed" color)))             (message "Warning: color `%s' can't be displayed" color)))
458      (list from to 'face face)))      (list from to 'face face)))

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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