From: ueno <ueno>
Date: Mon, 27 Oct 2003 03:28:13 +0000 (+0000)
Subject: * riece-icon.el (riece-icon-available-p): Check
X-Git-Tag: riece-0_1_6~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=00338ed447e65badc9e24cecf6faebcd67e129f4;p=elisp%2Friece.git

* riece-icon.el (riece-icon-available-p): Check
the existence of image-type-available-p.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b642f96..a2dce39 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-27  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-icon.el (riece-icon-available-p): Check
+	the existence of image-type-available-p.
+
 2003-10-27  OHASHI Akira  <bg66@koka-in.org>
 
 	* riece-log.el (riece-log-get-directory): Fix for server name and
diff --git a/lisp/riece-icon.el b/lisp/riece-icon.el
index 65a3de4..82ce4e6 100644
--- a/lisp/riece-icon.el
+++ b/lisp/riece-icon.el
@@ -182,7 +182,8 @@ static char * a_xpm[] = {
 (defun riece-icon-available-p ()
   (if (featurep 'xemacs)
       (featurep 'xpm)
-    (image-type-available-p 'xpm)))
+    (if (fboundp 'image-type-available-p)
+	(image-type-available-p 'xpm))))
 
 (eval-and-compile
   (if (featurep 'xemacs)