* riece-icon.el (riece-icon-available-p): Check

[riece] / lisp / riece-icon.el

diff --git a/lisp/riece-icon.el b/lisp/riece-icon.el
index 65a3de4..82ce4e6 100644 (file)
--- 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)