From 60d15bc7d07c2feffd6f12a490d33d8234dc3aa8 Mon Sep 17 00:00:00 2001 From: Boris Goldowsky Date: Tue, 25 Oct 1994 14:16:02 +0000 Subject: [PATCH] (enriched-mode): Add autoload cookie. (enriched-decode-foreground, -background): Create faces even if no window system, to prevent multiple warnings. --- lisp/enriched.el | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/lisp/enriched.el b/lisp/enriched.el index 8a4d32501f2..fb2084a1d78 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el @@ -421,21 +421,24 @@ One annotation each for foreground color, background color, italic, etc." (defun enriched-decode-foreground (from to color) (let ((face (intern (concat "fg:" color)))) - (or (and (fboundp 'facemenu-get-face) (facemenu-get-face face)) - (progn (enriched-warn "Color \"%s\" not defined" color) - (if window-system - (enriched-warn - " Try M-x set-face-foreground RET %s RET some-other-color" face)))) + (cond ((internal-find-face face)) + ((and window-system (facemenu-get-face face))) + (window-system + (enriched-warn "Color \"%s\" not defined: + Try M-x set-face-foreground RET %s RET some-other-color" color face)) + ((make-face face) + (enriched-warn "Color \"%s\" can't be displayed." color))) (list from to 'face face))) (defun enriched-decode-background (from to color) (let ((face (intern (concat "bg:" color)))) - (or (and (fboundp 'facemenu-get-face) (facemenu-get-face face)) - (progn - (enriched-warn "Color \"%s\" not defined" color) - (if window-system - (enriched-warn - " Try M-x set-face-background RET %s RET some-other-color" face)))) + (cond ((internal-find-face face)) + ((and window-system (facemenu-get-face face))) + (window-system + (enriched-warn "Color \"%s\" not defined: + Try M-x set-face-background RET %s RET some-other-color" color face)) + ((make-face face) + (enriched-warn "Color \"%s\" can't be displayed." color))) (list from to 'face face))) ;;; @@ -447,6 +450,7 @@ One annotation each for foreground color, background color, italic, etc." ;;; Define the mode ;;; +;;;###autoload (defun enriched-mode (&optional arg notrans) "Minor mode for editing text/enriched files. These are files with embedded formatting information in the MIME standard -- 2.39.5