(if (or force
(riece-reconfigure-windows-predicate))
(apply (car layout) (cdr layout))))))
-
+
(defun riece-set-window-points ()
(if (get-buffer-window riece-user-list-buffer)
(with-current-buffer riece-user-list-buffer
(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 (riece-frozen riece-channel-buffer)
+ (if riece-channel-buffer-window-point
+ (set-window-point (get-buffer-window riece-channel-buffer)
+ riece-channel-buffer-window-point))
+ (recenter -1 (get-buffer-window riece-channel-buffer)))))
(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)))))
+ (recenter -1 (get-buffer-window riece-others-buffer)))))
(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))))))
+ (recenter -1 (get-buffer-window riece-dialogue-buffer))))))
(defun riece-reconfigure-windows-predicate ()
"Return t, if window reconfiguration is needed.