(with-current-buffer riece-channel-list-buffer
(unless (riece-frozen riece-channel-list-buffer)
(set-window-start (get-buffer-window riece-channel-list-buffer)
- (point-min))))))
+ (point-min)))))
+ (if (and riece-channel-buffer
+ (get-buffer-window riece-channel-buffer))
+ (with-current-buffer riece-channel-buffer
+ (unless (riece-frozen riece-channel-buffer)
+ (set-window-point (get-buffer-window riece-channel-buffer)
+ (point-max)))))
+ (if (get-buffer-window riece-others-buffer)
+ (with-current-buffer riece-others-buffer
+ (unless (riece-frozen riece-others-buffer)
+ (set-window-point (get-buffer-window riece-others-buffer)
+ (point-max)))))
+ (if (get-buffer-window riece-dialogue-buffer)
+ (with-current-buffer riece-dialogue-buffer
+ (unless (riece-frozen riece-dialogue-buffer)
+ (set-window-point (get-buffer-window riece-dialogue-buffer)
+ (point-max))))))
(defun riece-reconfigure-windows-predicate ()
"Return t, if window reconfiguration is needed.
(select-window (or (get-buffer-window buffer)
(get-buffer-window riece-command-buffer)))))
-(defun riece-configure-windows-top (&optional plist)
+(defun riece-configure-windows-top (&rest plist)
"Candidate of `riece-configure-windows-function'.
PLIST accept :command-height, :user-list-width, and :channel-list-width."
(let ((command-height (or (plist-get plist :command-height) 4))