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

current dir hack for ghc-info.el.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-11-17 14:41:38 +09:00
parent 71ebb82eb2
commit ae22ff40d4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-info.el
View File

@ -16,8 +16,10 @@
(message "%s not found" ghc-module-command) (message "%s not found" ghc-module-command)
(let* ((expr0 (thing-at-point 'symbol)) (let* ((expr0 (thing-at-point 'symbol))
(expr (if ask (ghc-read-expression expr0) expr0)) (expr (if ask (ghc-read-expression expr0) expr0))
(cdir default-directory)
(file (buffer-name))) (file (buffer-name)))
(with-temp-buffer (with-temp-buffer
(cd cdir)
(call-process ghc-module-command nil t nil "type" file expr) (call-process ghc-module-command nil t nil "type" file expr)
(message (buffer-substring (point-min) (1- (point-max)))))))) (message (buffer-substring (point-min) (1- (point-max))))))))
@ -27,12 +29,14 @@
(message "%s not found" ghc-module-command) (message "%s not found" ghc-module-command)
(let* ((expr0 (thing-at-point 'symbol)) (let* ((expr0 (thing-at-point 'symbol))
(expr (if ask (ghc-read-expression expr0) expr0)) (expr (if ask (ghc-read-expression expr0) expr0))
(cdir default-directory)
(file (buffer-name)) (file (buffer-name))
(buf (get-buffer-create ghc-error-buffer-name))) (buf (get-buffer-create ghc-error-buffer-name)))
(with-current-buffer buf (with-current-buffer buf
(erase-buffer) (erase-buffer)
(insert (insert
(with-temp-buffer (with-temp-buffer
(cd cdir)
(call-process ghc-module-command nil t nil "info" file expr) (call-process ghc-module-command nil t nil "info" file expr)
(buffer-substring (point-min) (1- (point-max)))))) (buffer-substring (point-min) (1- (point-max))))))
(display-buffer buf)))) (display-buffer buf))))