allowing completion, for instance, for "[Byte" to "[ByteString".

This commit is contained in:
Kazu Yamamoto 2014-03-31 14:09:21 +09:00
parent ac45c24e3a
commit c05ad5f47c

View File

@ -224,7 +224,7 @@ 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)))
(regex (if (ghc-module-completion-p) "[ (,`]" "[ (,`.]"))) (regex (if (ghc-module-completion-p) "[ (,`]" "[\[ (,`.]")))
(if (re-search-backward regex beg t) (if (re-search-backward regex beg t)
(1+ (point)) (1+ (point))
beg)))) beg))))