(put 'riece-channel-mode 'derived-mode-parent 'riece-dialogue-mode)
(defvar riece-buffer-alist
- '((riece-command-buffer "*Commands*" riece-command-mode)
+ '((riece-command-buffer "*Command*" riece-command-mode)
(riece-dialogue-buffer "*Dialogue*" riece-dialogue-mode)
(riece-others-buffer "*Others*" riece-others-mode)
(riece-channel-list-buffer "*Channels*" riece-channel-list-mode)
(riece-define-keys riece-command-mode-map
"\r" riece-command-enter-message
- [(control return)] riece-command-enter-message-as-notice)
+ [(control return)] riece-command-enter-message-as-notice
+ [tab] riece-command-complete-user)
(riece-define-keys (riece-command-map riece-command-prefix
riece-command-mode-map)
(setq riece-away-indicator "-"
riece-operator-indicator "-"
major-mode 'riece-command-mode
- mode-name "Commands"
+ mode-name "Command"
mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: "