diff options
author | Richard M. Stallman <rms@gnu.org> | 2002-04-04 20:46:55 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2002-04-04 20:46:55 +0000 |
commit | 4469c2f50bb6bcdf86f4026a4f2fbc43c9582334 (patch) | |
tree | d4215a5bf502ed8d1b04021b662b49a4a121bbfe /lisp | |
parent | af6d03923da3482a12f0b676882dbb9447f1e6e8 (diff) | |
download | emacs-4469c2f50bb6bcdf86f4026a4f2fbc43c9582334.tar.gz |
(enriched-decode-foreground)
(enriched-decode-background): Don't call facemenu-get-face.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/enriched.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/enriched.el b/lisp/enriched.el index 6322957df36..8edf7c730e2 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el @@ -432,7 +432,7 @@ Return value is \(begin end name positive-p), or nil if none was found." (delete-char 1))) (defun enriched-decode-foreground (from to &optional color) - (if (and color (display-color-p) (facemenu-get-face face)) + (if (and color (display-color-p)) (list from to 'face (cons ':foreground color)) (if (null color) (message "Warning: no color specified for <x-color>") @@ -440,7 +440,7 @@ Return value is \(begin end name positive-p), or nil if none was found." nil)) (defun enriched-decode-background (from to &optional color) - (if (and color (display-color-p) (facemenu-get-face face)) + (if (and color (display-color-p)) (list from to 'face (cons ':background color)) (if (null color) (message "Warning: no color specified for <x-bg-color>") |