From 00338ed447e65badc9e24cecf6faebcd67e129f4 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 27 Oct 2003 03:28:13 +0000 Subject: [PATCH] * riece-icon.el (riece-icon-available-p): Check the existence of image-type-available-p. --- lisp/ChangeLog | 5 +++++ lisp/riece-icon.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * riece-icon.el (riece-icon-available-p): Check + the existence of image-type-available-p. + 2003-10-27 OHASHI Akira * 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) -- 1.7.10.4