From: ueno <ueno>
Date: Sun, 19 May 2002 17:24:05 +0000 (+0000)
Subject: * liece-xemacs.el (liece-xemacs-modeline-glyph): Check 'xbm.
X-Git-Tag: liece-1_4_8~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f14aa5c10c59a707744290a4ac41a1dccf7a1218;p=elisp%2Fliece.git

* liece-xemacs.el (liece-xemacs-modeline-glyph): Check 'xbm.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f64f80..d1fdaa6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-19  Daiki Ueno  <ueno@unixuser.org>
+
+	* liece-xemacs.el (liece-xemacs-modeline-glyph): Check 'xbm.
+
 2002-05-12  Daiki Ueno  <ueno@unixuser.org>
 
 	* gettext.el (gettext-default-locale): New variable.
diff --git a/lisp/liece-xemacs.el b/lisp/liece-xemacs.el
index d3cf76c..8278893 100644
--- a/lisp/liece-xemacs.el
+++ b/lisp/liece-xemacs.el
@@ -243,7 +243,8 @@ If optional argument FORCE is non-nil, always update toolbar."
 	     (if (and (featurep 'xpm)
 		      (setq file (liece-locate-icon-file "liece-pointer.xpm")))
 		 (list (vector 'xpm :file file)))
-	     (if (setq file (liece-locate-icon-file "liece-pointer.xbm"))
+	     (if (and (featurep 'xbm)
+		      (setq file (liece-locate-icon-file "liece-pointer.xbm")))
 		 (list (vector 'xbm :file file)))
 	     '([string :data "Liece:"]))))))
     (set-glyph-face glyph 'modeline-buffer-id)