From fa0d97cf24c7cc05f8e8e4c021cb3c68ab47b69d Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 31 Mar 2014 15:55:15 +0900 Subject: [PATCH] displaying also a function name. --- elisp/ghc-ins-mod.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/elisp/ghc-ins-mod.el b/elisp/ghc-ins-mod.el index b71ae81..ce657f0 100644 --- a/elisp/ghc-ins-mod.el +++ b/elisp/ghc-ins-mod.el @@ -28,9 +28,8 @@ (setq mods (ghc-function-to-modules fun)) (if (null mods) (message "No module guessed") - (let* ((fmt (if prefix - (concat "Module name for \"" prefix "\" (%s): ") - "Module name (%s): ")) + (let* ((key (or prefix fun)) + (fmt (concat "Module name for \"" key "\" (%s): ")) (mod (ghc-completing-read fmt mods))) (save-excursion (ghc-goto-module-position)