hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

scrolling errors.

Browse Source
This commit is contained in:
Kazu Yamamoto 2015-08-13 17:39:01 +09:00
parent 002008aa30
commit efef2b19ea
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
elisp/ghc-process.el
View File

@ -110,9 +110,15 @@
(goto-char (point-max)) (goto-char (point-max))
(insert-buffer-substring tbuf 1 end)) (insert-buffer-substring tbuf 1 end))
(with-current-buffer (get-buffer-create ghc-error-buffer) (with-current-buffer (get-buffer-create ghc-error-buffer)
(let* ((cbuf (current-buffer))
cwin)
(unless (get-buffer-window cbuf) (display-buffer cbuf))
(setq cwin (get-buffer-window cbuf))
(goto-char (point-max)) (goto-char (point-max))
(insert-buffer-substring tbuf 1 end) (insert-buffer-substring tbuf 1 end)
(display-buffer (current-buffer)) (unless (pos-visible-in-window-p (point) cwin)
(with-selected-window cwin
(scroll-up 2))))
(redisplay))) (redisplay)))
(delete-region 1 end))))) (delete-region 1 end)))))
(goto-char (point-max)) (goto-char (point-max))