removing trailing white spaces.

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

View File

@ -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)

View File

@ -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))))))

View File

@ -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))