X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-misc.el;h=2e2a91215f8baf364c78d118f2e23e3b126abfb2;hp=2ab9f07385222048f6c931a9bdfb3574f212ab24;hb=37bd1c399d1cd55e31ba31d7ecd1a8f5f0af9fe6;hpb=b6697e33d7a0def19a85c874907092d505946333

diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index 2ab9f07..2e2a912 100644
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -70,19 +70,19 @@
       (let ((inhibit-read-only t)
 	    buffer-read-only
 	    (start (goto-char (point-max)))
-	    (buffer (current-buffer))
 	    window
 	    point)
 	(insert (format-time-string "%H:%M") " " string)
 	(setq point (point))
 	(if (and (not (riece-frozen (current-buffer)))
-		 (setq window (get-buffer-window (current-buffer))))
+		 (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 -2))))
+		(recenter riece-window-center-line))))
 	(run-hook-with-args 'riece-after-insert-functions start (point))))
     (setq buffers (cdr buffers))))