displaying qualified prefix.

2014-03-31 14:15:05 +09:00 · 2014-03-31 14:15:05 +09:00 · 63acecf0b5
commit 63acecf0b5
parent c05ad5f47c
1 changed files with 4 additions and 1 deletions
--- a/elisp/ghc-ins-mod.el
+++ b/elisp/ghc-ins-mod.el
@ -28,7 +28,10 @@
    (setq mods (ghc-function-to-modules fun))
    (if (null mods)
 	(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
 	  (ghc-goto-module-position)
 	  (if prefix