From 61922e249fca527cb61aedb60b246486d5d40f63 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 17 Aug 2015 12:59:52 +0900 Subject: [PATCH 1/2] fixing a bug that the cursor stays in the error buffer. --- elisp/ghc-process.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el index 497ecde..94dc5d7 100644 --- a/elisp/ghc-process.el +++ b/elisp/ghc-process.el @@ -126,8 +126,8 @@ (with-selected-window cwin (goto-char (point-max)) (insert-buffer-substring tbuf 1 end) - (set-buffer-modified-p nil) - (redisplay))))) + (set-buffer-modified-p nil)) + (redisplay)))) (delete-region 1 end))))) (goto-char (point-max)) (forward-line -1) From 3e0c06f50a78e42297bf2f5f50d36efa19094d4b Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 17 Aug 2015 15:43:34 +0900 Subject: [PATCH 2/2] Highlighting even strings with spaces. (#547) --- elisp/ghc-check.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el index 37d02fc..7f16d63 100644 --- a/elisp/ghc-check.el +++ b/elisp/ghc-check.el @@ -186,7 +186,8 @@ nil do not display errors/warnings. (forward-line (1- line)) (forward-char (1- coln)) (setq beg (point)) - (skip-chars-forward "^[:space:]" (line-end-position)) + (forward-sexp) + ;; (skip-chars-forward "^[:space:]" (line-end-position)) (setq end (point))))) (t (setq beg (point))