;;; Code:
-(eval-when-compile (require 'riece-inlines))
-
(if (featurep 'xemacs)
(require 'riece-xemacs)
(require 'riece-emacs))
mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: "
- "{"
riece-away-indicator
riece-operator-indicator
riece-freeze-indicator
- "} "
+ " "
riece-user-indicator
" "
- riece-channel-indicator)))
+ riece-current-channel)))
(riece-simplify-mode-line-format)
(use-local-map riece-command-mode-map)
mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: "
- "{"
riece-away-indicator
riece-operator-indicator
riece-freeze-indicator
- "} "
+ " "
riece-channel-list-indicator " "))
buffer-read-only t
tab-stop-list riece-tab-stop-list)
(setq mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: "
- "{"
riece-away-indicator
riece-operator-indicator
riece-freeze-indicator
- "} "
- riece-user-indicator
" "
riece-channel-indicator))))