From 5b0830af7f05a1748af3f90595f4afe6b0a3d9be Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 19 May 2002 17:20:31 +0000 Subject: [PATCH] * liece-xemacs.el (liece-xemacs-modeline-glyph): Check 'xbm. --- lisp/ChangeLog | 4 ++++ lisp/liece-xemacs.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7cb03b0..b2f41d3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-05-19 Daiki Ueno + + * liece-xemacs.el (liece-xemacs-modeline-glyph): Check 'xbm. + 2002-05-12 Daiki Ueno * gettext.el (gettext-default-locale): New variable. diff --git a/lisp/liece-xemacs.el b/lisp/liece-xemacs.el index db7609c..e041e01 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) -- 1.7.10.4