From 4df2046672f75a67579d089d066194c016d4ea4d Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Fri, 14 Aug 2015 14:21:07 +0900 Subject: [PATCH] cleaning up the error scrolling. --- elisp/ghc-process.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el index 8214aa1..93b63e5 100644 --- a/elisp/ghc-process.el +++ b/elisp/ghc-process.el @@ -119,13 +119,11 @@ cwin) (unless (get-buffer-window cbuf) (display-buffer cbuf)) (setq cwin (get-buffer-window cbuf)) - (goto-char (point-max)) - (insert-buffer-substring tbuf 1 end) - (set-buffer-modified-p nil) - (unless (pos-visible-in-window-p (point) cwin) - (with-selected-window cwin - (scroll-up 2)))) - (redisplay))) + (with-selected-window cwin + (goto-char (point-max)) + (insert-buffer-substring tbuf 1 end) + (set-buffer-modified-p nil) + (redisplay))))) (delete-region 1 end))))) (goto-char (point-max)) (forward-line -1)