X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-layout.el;h=e1c69080b376abe576f2bd7ad71d41f3107544b8;hb=e58c40c8f19140c23d2218f64626514a5619f068;hp=8643a4ed938d1df1917a103c239d0d5f7d4e937f;hpb=fd2f4576f383044390c4523947aaead409d34c1a;p=riece diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el index 8643a4e..e1c6908 100644 --- a/lisp/riece-layout.el +++ b/lisp/riece-layout.el @@ -83,7 +83,23 @@ happen unconditionally." (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.