Merge branch 'master' of github.com:kazu-yamamoto/ghc-mod
This commit is contained in:
commit
97c632fbd7
@ -186,7 +186,8 @@ nil do not display errors/warnings.
|
|||||||
(forward-line (1- line))
|
(forward-line (1- line))
|
||||||
(forward-char (1- coln))
|
(forward-char (1- coln))
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
(skip-chars-forward "^[:space:]" (line-end-position))
|
(forward-sexp)
|
||||||
|
;; (skip-chars-forward "^[:space:]" (line-end-position))
|
||||||
(setq end (point)))))
|
(setq end (point)))))
|
||||||
(t
|
(t
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
|
@ -126,8 +126,8 @@
|
|||||||
(with-selected-window cwin
|
(with-selected-window cwin
|
||||||
(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)
|
(set-buffer-modified-p nil))
|
||||||
(redisplay)))))
|
(redisplay))))
|
||||||
(delete-region 1 end)))))
|
(delete-region 1 end)))))
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(forward-line -1)
|
(forward-line -1)
|
||||||
|
Loading…
Reference in New Issue
Block a user