(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)
(let ((filename (match-string 1 (cdr object))))
(liece-command-dcc-send filename nick))))
-(defadvice easy-menu-add-item
- (around liece-fix-menu-path-switch-buffer activate)
- "Advice for XEmacs 20.4 or earlier."
- (save-excursion
- (set-buffer liece-command-buffer)
- (add-menu-button
- (cons (car (ad-get-arg 0)) (ad-get-arg 1))
- (ad-get-arg 2) (ad-get-arg 3))))
-
(eval-and-compile
(setq liece-x-face-insert-function
(function liece-x-face-insert-with-xemacs))