completion for module vs funcs.

This commit is contained in:
Kazu Yamamoto 2010-08-03 12:26:25 +09:00
parent c234e4547f
commit 14014e1a5e

View File

@ -157,9 +157,14 @@ unloaded modules are loaded")
(defun ghc-module-completion-p () (defun ghc-module-completion-p ()
(or (minibufferp) (or (minibufferp)
(let ((end (point)))
(save-excursion
(beginning-of-line)
(and (looking-at "import ")
(not (search-forward "(" end t)))))
(save-excursion (save-excursion
(beginning-of-line) (beginning-of-line)
(looking-at "import ")))) (looking-at " +module "))))
(defun ghc-select-completion-symbol () (defun ghc-select-completion-symbol ()
(cond (cond