removing trailing white spaces.
This commit is contained in:
parent
358ed2dfff
commit
0ee6d06411
@ -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)
|
||||
|
@ -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))))))
|
||||
|
||||
|
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user