displaying qualified prefix.

This commit is contained in:
Kazu Yamamoto 2014-03-31 14:15:05 +09:00
parent c05ad5f47c
commit 63acecf0b5

View File

@ -28,7 +28,10 @@
(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 ((mod (ghc-completing-read "Module name (%s): " mods))) (let* ((fmt (if prefix
(concat "Module name for \"" prefix "\" (%s): ")
"Module name (%s): "))
(mod (ghc-completing-read fmt mods)))
(save-excursion (save-excursion
(ghc-goto-module-position) (ghc-goto-module-position)
(if prefix (if prefix