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 ()
|
(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
|
||||||
|
Loading…
Reference in New Issue
Block a user