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

cosmetic change.

Browse Source
This commit is contained in:
Kazu Yamamoto 2012-02-15 11:03:51 +09:00
parent 2c870867c1
commit 952c255696
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
elisp/ghc-comp.el
View File

@ -269,14 +269,19 @@ unloaded modules are loaded")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(ghc-defstruct buffer name file)
(defun ghc-buffer-name-file (buf)
(ghc-make-buffer (buffer-name buf) (buffer-file-name buf)))
(defun ghc-gather-import-modules-all-buffers ()
(let ((bufs (mapcar (lambda (b) (cons (buffer-name b) (buffer-file-name b)))
(buffer-list)))
ret)
(let ((bufs (mapcar 'ghc-buffer-name-file (buffer-list)))
ret file)
(save-excursion
(dolist (buf bufs (ghc-uniq-lol ret))
(when (and (cdr buf) (string-match "\\.hs$" (cdr buf)))
(set-buffer (car buf))
(setq file (ghc-buffer-get-file buf))
(when (and file (string-match "\\.hs$" file))
(set-buffer (ghc-buffer-get-name buf))
(ghc-add ret (ghc-gather-import-modules-buffer)))))))
(defun ghc-gather-import-modules-buffer ()

4
elisp/ghc-info.el
View File

@ -23,7 +23,7 @@
(let* ((expr0 (ghc-things-at-point))
(expr (if ask (ghc-read-expression expr0) expr0))
(cdir default-directory)
(file buffer-file-name)
(file (buffer-file-name))
(buf (get-buffer-create ghc-error-buffer-name)))
(with-current-buffer buf
(erase-buffer)
@ -120,7 +120,7 @@
(let* ((ln (int-to-string (line-number-at-pos)))
(cn (int-to-string (current-column)))
(cdir default-directory)
(file buffer-file-name))
(file (buffer-file-name)))
(ghc-read-lisp
(lambda ()
(cd cdir)