(setq riece-send-size 0)
(make-local-variable 'riece-last-send-time)
(setq riece-last-send-time '(0 0 0))
- (make-local-variable 'riece-obarray)
- (setq riece-obarray (make-vector riece-obarray-size 0))
+ (make-local-variable 'riece-user-obarray)
+ (setq riece-user-obarray (make-vector riece-user-obarray-size 0))
+ (make-local-variable 'riece-channel-obarray)
+ (setq riece-channel-obarray (make-vector riece-channel-obarray-size 0))
(make-local-variable 'riece-coding-system)
(buffer-disable-undo)
(erase-buffer)))
(defun riece-close-server-process (process)
+ (with-current-buffer (process-buffer process)
+ (run-hooks 'riece-after-close-hook))
(kill-buffer (process-buffer process))
(setq riece-server-process-alist
(delq (rassq process riece-server-process-alist)