From fea7db27cba3de659523820c37c4bcfc2fe4eda1 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 2 Feb 2000 10:21:26 +0000 Subject: [PATCH] (mime-setup-enable-inline-image): Use "(fboundp 'create-image)" to detect Emacs 21. Use `eval-after-load' instead of `call-after-loaded' to require `mime-image'. --- semi-setup.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/semi-setup.el b/semi-setup.el index 57e4bda..f4da19e 100644 --- a/semi-setup.el +++ b/semi-setup.el @@ -45,18 +45,14 @@ it is used as hook to set." (defvar mime-setup-enable-inline-image (and window-system (or (featurep 'xemacs) - (and (featurep 'mule)(module-installed-p 'bitmap)) - )) + (and (featurep 'mule) + (or (fboundp 'create-image) + (module-installed-p 'bitmap))))) "*If it is non-nil, semi-setup sets up to use mime-image.") (if mime-setup-enable-inline-image - (call-after-loaded 'mime-view - (function - (lambda () - (require 'mime-image) - ))) - ) - + (eval-after-load "mime-view" + '(require 'mime-image))) ;; for text/html (defvar mime-setup-enable-inline-html -- 1.7.10.4