From: Boris Goldowsky <boris@gnu.org>
Date: Tue, 25 Oct 1994 14:16:02 +0000 (+0000)
Subject: (enriched-mode): Add autoload cookie.
X-Git-Tag: emacs-19.34~6161
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60d15bc7d07c2feffd6f12a490d33d8234dc3aa8;p=emacs.git

(enriched-mode): Add autoload cookie.
(enriched-decode-foreground, -background): Create
faces even if no window system, to prevent multiple warnings.
---

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