From: Daiki Ueno Date: Mon, 30 Aug 2004 01:55:58 +0000 (+0000) Subject: * riece-layout.el (riece-set-window-points): Use (recenter -1) to X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=86e0bdac6469b7e99270e11d299d8545d697a92e;hp=7e5d8ee6fab1c60aa4b3fe9922f0c67384852f87 * riece-layout.el (riece-set-window-points): Use (recenter -1) to set window point instead of doing so manually. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 29c1be8..103937b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2004-08-30 Daiki Ueno + * riece-layout.el (riece-set-window-points): Use (recenter -1) to + set window point instead of doing so manually. * riece-misc.el (riece-insert): Use (recenter -1) to set window point instead of doing so manually. diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el index ca463dc..5970983 100644 --- a/lisp/riece-layout.el +++ b/lisp/riece-layout.el @@ -91,18 +91,15 @@ happen unconditionally." (if riece-channel-buffer-window-point (set-window-point (get-buffer-window riece-channel-buffer) riece-channel-buffer-window-point)) - (set-window-point (get-buffer-window riece-channel-buffer) - (point-max))))) + (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.