comparison lisp/enriched.el @ 9694:f8aa9230c3fa

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

9693:b6ce6e2ccd15

	   (if bg (enriched-push (list "x-bg-color" bg) ans))
	   ans))))

(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))))
    (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))))
    (list from to 'face face)))

;;;
;;; NOTE: Everything below this point is intended to be independent of the file
;;; format, which is defined by the variables and functions above.

;;;
;;; Define the mode
;;;

(defun enriched-mode (&optional arg notrans)
  "Minor mode for editing text/enriched files.
These are files with embedded formatting information in the MIME standard
text/enriched format.

9694:f8aa9230c3fa

	   (if bg (enriched-push (list "x-bg-color" bg) ans))
	   ans))))

(defun enriched-decode-foreground (from to color)
  (let ((face (intern (concat "fg:" color))))
    (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))))
    (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)))

;;;
;;; NOTE: Everything below this point is intended to be independent of the file
;;; format, which is defined by the variables and functions above.

;;;
;;; 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
text/enriched format.