From 2aa47fc44980689ad7ef8eddbd63aba99a2b37d7 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Sat, 26 Apr 2014 21:00:28 +0900 Subject: [PATCH] proper message for debugging. --- elisp/ghc-comp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/elisp/ghc-comp.el b/elisp/ghc-comp.el index 34ba595..0967e62 100644 --- a/elisp/ghc-comp.el +++ b/elisp/ghc-comp.el @@ -105,15 +105,15 @@ unloaded modules are loaded") (defun ghc-load-modules (mods) (if mods - (prog2 - (message "Loading symbols...") - (mapcar 'ghc-load-module mods) - (message "Loading symbols...done")) + (mapcar 'ghc-load-module mods) (message "No new modules") nil)) (defun ghc-load-module (mod) - (ghc-sync-process (format "browse %s\n" mod))) + (prog2 + (message "Loading symbols for %s..." mod) + (ghc-sync-process (format "browse %s\n" mod)) + (message "Loading symbols for %s...done" mod))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;