Merge pull request #91 from syohex/fix-show-info

Fix 'ghc-show-info' when cursor is on space
This commit is contained in:
Kazu Yamamoto 2012-12-10 18:39:28 -08:00
commit 657e458848
1 changed files with 1 additions and 1 deletions

View File

@ -14,7 +14,7 @@
(interactive "P")
(let* ((modname (or (ghc-find-module-name) "Main"))
(expr0 (ghc-things-at-point))
(expr (if ask (ghc-read-expression expr0) expr0))
(expr (if (or ask (not expr0)) (ghc-read-expression expr0) expr0))
(file (buffer-file-name))
(cmds (list "info" file modname expr)))
(ghc-display-information cmds nil)))