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

error buffer is now read-only.

Browse Source
This commit is contained in:
Kazu Yamamoto 2015-08-14 11:40:57 +09:00
parent f762209e60
commit cfddddcfe8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
elisp/ghc-process.el
View File

@ -112,12 +112,16 @@
(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)) (setq buffer-read-only t)
(let* ((buffer-read-only nil)
(inhibit-read-only t)
(cbuf (current-buffer))
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)) (goto-char (point-max))
(insert-buffer-substring tbuf 1 end) (insert-buffer-substring tbuf 1 end)
(set-buffer-modified-p nil)
(unless (pos-visible-in-window-p (point) cwin) (unless (pos-visible-in-window-p (point) cwin)
(with-selected-window cwin (with-selected-window cwin
(scroll-up 2)))) (scroll-up 2))))