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

removing trailing white spaces.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-08-14 10:48:57 +09:00
parent 358ed2dfff
commit 0ee6d06411
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
elisp/ghc-check.el
View File

@ -247,7 +247,7 @@ nil does not display errors/warnings.
(line (string-to-number (match-string 2 text))) (line (string-to-number (match-string 2 text)))
(coln (string-to-number (match-string 3 text))) (coln (string-to-number (match-string 3 text)))
(buf (find-file file))) (buf (find-file file)))
(with-current-buffer buf (with-current-buffer buf
(let* ((this-line (line-number-at-pos)) (let* ((this-line (line-number-at-pos))
(diff (- line this-line))) (diff (- line this-line)))
(beginning-of-line) (beginning-of-line)

4
elisp/ghc-func.el
View File

@ -159,7 +159,7 @@
;; (turn-off-haskell-font-lock) ;; (turn-off-haskell-font-lock)
;; (haskell-font-lock-defaults-create) ;; (haskell-font-lock-defaults-create)
;; (turn-on-haskell-font-lock))) ;; (turn-on-haskell-font-lock)))
;; (display-buffer buf ;; (display-buffer buf
;; '((display-buffer-reuse-window ;; '((display-buffer-reuse-window
;; display-buffer-pop-up-window)))))) ;; display-buffer-pop-up-window))))))
@ -174,7 +174,7 @@
(turn-off-haskell-font-lock) (turn-off-haskell-font-lock)
(haskell-font-lock-defaults-create) (haskell-font-lock-defaults-create)
(turn-on-haskell-font-lock))) (turn-on-haskell-font-lock)))
(display-buffer buf (display-buffer buf
'((display-buffer-reuse-window '((display-buffer-reuse-window
display-buffer-pop-up-window)))))) display-buffer-pop-up-window))))))

4
elisp/ghc-rewrite.el
View File

@ -133,8 +133,8 @@
;; (ghc-display nil ;; (ghc-display nil
;; (lambda () ;; (lambda ()
;; (insert "Possible completions:\n") ;; (insert "Possible completions:\n")
;; (mapc ;; (mapc
;; (lambda (x) ;; (lambda (x)
;; (let* ((ins1 (insert "- ")) ;; (let* ((ins1 (insert "- "))
;; (pos-begin (point)) ;; (pos-begin (point))
;; (ins (insert x)) ;; (ins (insert x))