cleaning up the error scrolling.

This commit is contained in:
Kazu Yamamoto 2015-08-14 14:21:07 +09:00
parent cfddddcfe8
commit 4df2046672

View File

@ -119,13 +119,11 @@
cwin) cwin)
(unless (get-buffer-window cbuf) (display-buffer cbuf)) (unless (get-buffer-window cbuf) (display-buffer cbuf))
(setq cwin (get-buffer-window cbuf)) (setq cwin (get-buffer-window cbuf))
(goto-char (point-max)) (with-selected-window cwin
(insert-buffer-substring tbuf 1 end) (goto-char (point-max))
(set-buffer-modified-p nil) (insert-buffer-substring tbuf 1 end)
(unless (pos-visible-in-window-p (point) cwin) (set-buffer-modified-p nil)
(with-selected-window cwin (redisplay)))))
(scroll-up 2))))
(redisplay)))
(delete-region 1 end))))) (delete-region 1 end)))))
(goto-char (point-max)) (goto-char (point-max))
(forward-line -1) (forward-line -1)