fixing a completion problem of Mod.Mod vs X.func.

This commit is contained in:
Kazu Yamamoto 2010-06-27 21:35:49 +09:00
parent b3523951c5
commit 2740a265cb

View File

@ -176,12 +176,14 @@ unloaded modules are loaded")
(defun ghc-completion-start-point ()
(save-excursion
(let ((beg (save-excursion (beginning-of-line) (point))))
(if (re-search-backward "[ (,`]" beg t) ;; xxx "."
(let ((beg (save-excursion (beginning-of-line) (point)))
(regex (save-excursion
(beginning-of-line)
(if (looking-at "import") "[ (,`]" "[ (,`.]"))))
(if (re-search-backward regex beg t)
(1+ (point))
beg))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Loading keywords