* riece-layout.el (riece-set-window-points): Use (recenter -1) to

[riece] / lisp / riece-layout.el

diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el
index 5fe234a..5970983 100644 (file)
--- a/lisp/riece-layout.el
+++ b/lisp/riece-layout.el
@@ -72,7 +72,7 @@ happen unconditionally."
       (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
@@ -87,25 +87,19 @@ happen unconditionally."
   (if (and riece-channel-buffer
           (get-buffer-window riece-channel-buffer))
       (with-current-buffer riece-channel-buffer
-       (unless (or (riece-frozen riece-channel-buffer)
-                   (pos-visible-in-window-p
-                    (point-max) (get-buffer-window 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 (or (riece-frozen riece-others-buffer)
-                   (pos-visible-in-window-p
-                    (point-max) (get-buffer-window riece-others-buffer)))
-         (set-window-point (get-buffer-window riece-others-buffer)
-                           (point-max)))))
+       (unless (riece-frozen riece-others-buffer)
+         (recenter -1 (get-buffer-window riece-others-buffer)))))
   (if (get-buffer-window riece-dialogue-buffer)
       (with-current-buffer riece-dialogue-buffer
-       (unless (or (riece-frozen riece-dialogue-buffer)
-                   (pos-visible-in-window-p
-                    (point-max) (get-buffer-window riece-dialogue-buffer)))
-         (set-window-point (get-buffer-window riece-dialogue-buffer)
-                           (point-max))))))
+       (unless (riece-frozen riece-dialogue-buffer)
+         (recenter -1 (get-buffer-window riece-dialogue-buffer))))))
 
 (defun riece-reconfigure-windows-predicate ()
   "Return t, if window reconfiguration is needed.