fixing a completion problem of Mod.Mod vs X.func.
This commit is contained in:
parent
b3523951c5
commit
2740a265cb
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user