displaying qualified prefix.
This commit is contained in:
parent
c05ad5f47c
commit
63acecf0b5
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user