X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-misc.el;h=2e2a91215f8baf364c78d118f2e23e3b126abfb2;hp=52c44a51b15563a37c0458f4d951a0aa110ba356;hb=c7d1af87eee59d121d3241a60e34520e67fe8f86;hpb=705cc214cf5f7baec9df513df9ffe8ed70286303

diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index 52c44a5..2e2a912 100644
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -69,12 +69,20 @@
       (set-buffer (car buffers))
       (let ((inhibit-read-only t)
 	    buffer-read-only
-	    (start (goto-char (point-max))))
+	    (start (goto-char (point-max)))
+	    window
+	    point)
 	(insert (format-time-string "%H:%M") " " string)
+	(setq point (point))
 	(if (and (not (riece-frozen (current-buffer)))
-		 (get-buffer-window (current-buffer)))
-	    (set-window-point (get-buffer-window (current-buffer))
-			      (point)))
+		 (setq window (get-buffer-window (current-buffer)))
+		 (not (pos-visible-in-window-p point window)))
+	    (save-excursion		;save-selected-window changes
+					;current buffer
+	      (save-selected-window
+		(select-window window)
+		(goto-char point)	;select-window changes current point
+		(recenter riece-window-center-line))))
 	(run-hook-with-args 'riece-after-insert-functions start (point))))
     (setq buffers (cdr buffers))))