backport since module can't be completed.

This commit is contained in:
Kazu Yamamoto 2010-06-14 14:25:06 +09:00
parent 2e28a09aa9
commit ca50279546

View File

@ -177,7 +177,7 @@ 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)
(if (re-search-backward "[ (,`]" beg t) ;; xxx "."
(1+ (point))
beg))))