From 0ee6d064111d309c878ee19a60bf40812e0d2898 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Thu, 14 Aug 2014 10:48:57 +0900 Subject: [PATCH] removing trailing white spaces. --- elisp/ghc-check.el | 2 +- elisp/ghc-func.el | 4 ++-- elisp/ghc-rewrite.el | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el index 72b770e..670e228 100644 --- a/elisp/ghc-check.el +++ b/elisp/ghc-check.el @@ -247,7 +247,7 @@ nil does not display errors/warnings. (line (string-to-number (match-string 2 text))) (coln (string-to-number (match-string 3 text))) (buf (find-file file))) - (with-current-buffer buf + (with-current-buffer buf (let* ((this-line (line-number-at-pos)) (diff (- line this-line))) (beginning-of-line) diff --git a/elisp/ghc-func.el b/elisp/ghc-func.el index e17fb33..a55273b 100644 --- a/elisp/ghc-func.el +++ b/elisp/ghc-func.el @@ -159,7 +159,7 @@ ;; (turn-off-haskell-font-lock) ;; (haskell-font-lock-defaults-create) ;; (turn-on-haskell-font-lock))) -;; (display-buffer buf +;; (display-buffer buf ;; '((display-buffer-reuse-window ;; display-buffer-pop-up-window)))))) @@ -174,7 +174,7 @@ (turn-off-haskell-font-lock) (haskell-font-lock-defaults-create) (turn-on-haskell-font-lock))) - (display-buffer buf + (display-buffer buf '((display-buffer-reuse-window display-buffer-pop-up-window)))))) diff --git a/elisp/ghc-rewrite.el b/elisp/ghc-rewrite.el index 7dbd84b..9e021e4 100644 --- a/elisp/ghc-rewrite.el +++ b/elisp/ghc-rewrite.el @@ -133,8 +133,8 @@ ;; (ghc-display nil ;; (lambda () ;; (insert "Possible completions:\n") -;; (mapc -;; (lambda (x) +;; (mapc +;; (lambda (x) ;; (let* ((ins1 (insert "- ")) ;; (pos-begin (point)) ;; (ins (insert x))