completion for module vs funcs.

2010-08-03 12:26:25 +09:00 · 2010-08-03 12:26:25 +09:00 · 14014e1a5e
parent c234e4547f
commit 14014e1a5e
1 changed files with 6 additions and 1 deletions
--- a/elisp/ghc-comp.el
+++ b/elisp/ghc-comp.el
@ -157,9 +157,14 @@ unloaded modules are loaded")

 (defun ghc-module-completion-p ()
  (or (minibufferp)
+      (let ((end (point)))
+	(save-excursion
+	  (beginning-of-line)
+	  (and (looking-at "import ")
+	       (not (search-forward "(" end t)))))
      (save-excursion
 	(beginning-of-line)
-	(looking-at "import "))))
+	(looking-at " +module "))))

 (defun ghc-select-completion-symbol ()
  (cond