(erase-buffer)
(while channels
(if (car channels)
- (insert (format "%2d:%s\n" index (car channels))))
+ (insert (format "%2d: %s\n" index (car channels))))
(setq index (1+ index)
channels (cdr channels)))))))
-(defsubst riece-update-channel-indicator ()
+(defun riece-update-channel-indicator ()
(setq riece-channel-indicator
(if riece-current-channel
(riece-concat-current-channel-modes
(defun riece-update-buffers ()
(run-hooks 'riece-update-buffer-functions)
- (force-mode-line-update t))
+ (force-mode-line-update t)
+ (run-hooks 'riece-update-buffers-hook))
(eval-when-compile
(autoload 'riece-channel-mode "riece"))
identity riece-channel-buffer-alist))
riece-user-list-buffer
(cdr (riece-identity-assoc-no-server
- identity riece-user-list-buffer-alist))))
+ identity riece-user-list-buffer-alist)))
+ (run-hooks 'riece-channel-switch-hook))
(defun riece-join-channel (channel-name)
(let ((identity (riece-make-identity channel-name)))
(riece-update-buffers)
(if (or force
(funcall riece-configure-windows-predicate))
- (funcall riece-configure-windows-function)))
+ (funcall riece-configure-windows-function))
+ (run-hooks 'riece-redisplay-buffers-hook))
(provide 'riece-display)
+
+;;; riece-display.el ends here