(require 'riece-compat)
(require 'riece-commands)
+(autoload 'make-ring "ring")
+
(defvar riece-channel-list-mode-map (make-sparse-keymap))
(defvar riece-user-list-mode-map (make-sparse-keymap))
"\C-tu" riece-command-toggle-user-list-buffer-mode
"\C-tc" riece-command-toggle-channel-buffer-mode
"\C-tC" riece-command-toggle-channel-list-buffer-mode
+ "\C-tl" riece-command-change-layout
"i" riece-command-invite
"j" riece-command-join
"\C-k" riece-command-kick
(if (stringp riece-server)
(setq riece-server (riece-server-name-to-server riece-server)))
(riece-create-buffers)
+ (switch-to-buffer riece-command-buffer)
+ (setq riece-channel-history (make-ring riece-channel-history-length))
(riece-redisplay-buffers)
(riece-open-server riece-server "")
(run-hooks 'riece-startup-hook)
(message "%s" (substitute-command-keys "Type \\[describe-mode] for help")))
(defun riece-exit ()
- (setq riece-server nil)
(if riece-save-variables-are-dirty
(riece-save-variables-files))
- (riece-clear-system)
+ (while riece-buffer-list
+ (if (and (get-buffer (car riece-buffer-list))
+ (buffer-live-p (car riece-buffer-list)))
+ (funcall riece-buffer-dispose-function (car riece-buffer-list)))
+ (setq riece-buffer-list (cdr riece-buffer-list)))
+ (setq riece-server nil
+ riece-current-channels nil
+ riece-current-channel nil
+ riece-user-indicator nil
+ riece-channel-indicator "None"
+ riece-channel-list-indicator "No channel"
+ riece-away-indicator "-"
+ riece-operator-indicator "-"
+ riece-freeze-indicator "-"
+ riece-channel-history nil)
+ (delete-other-windows)
(run-hooks 'riece-exit-hook))
(defun riece-command-mode ()