Navi2ch for Emacs (part 8)

xemacs でオンオフライン状態を表示させてみる
(setq navi2ch-modeline-online
(cons
(let ((extent (make-extent nil nil)))
(set-extent-property extent 'invisible t)
extent)
(let ((glyph (make-glyph (vector 'string :data navi2ch-online-indicator))))
(set-glyph-image glyph
(vector 'xpm :file (expand-file-name navi2ch-online-icon navi2ch-icon-directory))
'global nil 'prepend) glyph)))