/[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.42 by rms, Wed Apr 3 15:28:45 2002 UTC revision 1.43 by rms, Thu Apr 4 20:46:55 2002 UTC
# Line 432  Return value is \(begin end name positiv Line 432  Return value is \(begin end name positiv
432        (delete-char 1)))        (delete-char 1)))
433    
434  (defun enriched-decode-foreground (from to &optional color)  (defun enriched-decode-foreground (from to &optional color)
435    (if (and color (display-color-p) (facemenu-get-face face))    (if (and color (display-color-p))
436        (list from to 'face (cons ':foreground color))        (list from to 'face (cons ':foreground color))
437      (if (null color)      (if (null color)
438          (message "Warning: no color specified for <x-color>")          (message "Warning: no color specified for <x-color>")
# Line 440  Return value is \(begin end name positiv Line 440  Return value is \(begin end name positiv
440      nil))      nil))
441    
442  (defun enriched-decode-background (from to &optional color)  (defun enriched-decode-background (from to &optional color)
443    (if (and color (display-color-p) (facemenu-get-face face))    (if (and color (display-color-p))
444        (list from to 'face (cons ':background color))        (list from to 'face (cons ':background color))
445      (if (null color)      (if (null color)
446          (message "Warning: no color specified for <x-bg-color>")          (message "Warning: no color specified for <x-bg-color>")

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

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