From 63acecf0b562aa42e65f9479013f360406a220a8 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 31 Mar 2014 14:15:05 +0900 Subject: [PATCH] displaying qualified prefix. --- elisp/ghc-ins-mod.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/elisp/ghc-ins-mod.el b/elisp/ghc-ins-mod.el index 3bac402..a8f571b 100644 --- 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