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

displaying also a function name.

This commit is contained in:
Kazu Yamamoto 2014-03-31 15:55:15 +09:00
parent ea915993fa
commit fa0d97cf24
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
elisp/ghc-ins-mod.el
View File

@ -28,9 +28,8 @@
(setq mods (ghc-function-to-modules fun)) (setq mods (ghc-function-to-modules fun))
(if (null mods) (if (null mods)
(message "No module guessed") (message "No module guessed")
(let* ((fmt (if prefix (let* ((key (or prefix fun))
(concat "Module name for \"" prefix "\" (%s): ") (fmt (concat "Module name for \"" key "\" (%s): "))
"Module name (%s): "))
(mod (ghc-completing-read fmt mods))) (mod (ghc-completing-read fmt mods)))
(save-excursion (save-excursion
(ghc-goto-module-position) (ghc-goto-module-position)