* riece-layout.el (riece-set-window-points): Check whether the end

[riece] / lisp / riece-layout.el

diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el
index e1c6908..5fe234a 100644 (file)
--- a/lisp/riece-layout.el
+++ b/lisp/riece-layout.el
@@ -87,17 +87,23 @@ happen unconditionally."
   (if (and riece-channel-buffer
           (get-buffer-window riece-channel-buffer))
       (with-current-buffer riece-channel-buffer
-       (unless (riece-frozen 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 (get-buffer-window riece-others-buffer)
       (with-current-buffer riece-others-buffer
-       (unless (riece-frozen 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)))))
   (if (get-buffer-window riece-dialogue-buffer)
       (with-current-buffer riece-dialogue-buffer
-       (unless (riece-frozen 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))))))