From 938004b3c1a93d44d358981452635c256d1a5b37 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Apr 2002 20:46:55 +0000 Subject: [PATCH] (enriched-decode-foreground) (enriched-decode-background): Don't call facemenu-get-face. --- lisp/enriched.el | 4 ++-- 1 file 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 ") @@ -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 ") -- 2.39.5