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 () (defun ghc-completion-start-point ()
(save-excursion (save-excursion
(let ((beg (save-excursion (beginning-of-line) (point)))) (let ((beg (save-excursion (beginning-of-line) (point)))
(if (re-search-backward "[ (,`]" beg t) ;; xxx "." (regex (save-excursion
(beginning-of-line)
(if (looking-at "import") "[ (,`]" "[ (,`.]"))))
(if (re-search-backward regex beg t)
(1+ (point)) (1+ (point))
beg)))) beg))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ;;;
;;; Loading keywords ;;; Loading keywords