hasufell
/
ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bug fix for module name completion in mini-buffer.

This commit is contained in:
Kazu Yamamoto 2010-07-16 19:02:23 +09:00
parent 0cdccce0ff
commit 22b0343eea
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
elisp/ghc-comp.el
View File

@ -155,12 +155,15 @@ unloaded modules are loaded")
(set-window-configuration ghc-window-configuration)
(setq ghc-window-configuration nil)))
(defun ghc-module-completion-p ()
(or (minibufferp)
(save-excursion
(beginning-of-line)
(looking-at "import "))))
(defun ghc-select-completion-symbol ()
(cond
((or (minibufferp)
(save-excursion
(beginning-of-line)
(looking-at "import ")))
((ghc-module-completion-p)
ghc-module-names)
((save-excursion
(beginning-of-line)
@ -177,9 +180,7 @@ unloaded modules are loaded")
(defun ghc-completion-start-point ()
(save-excursion
(let ((beg (save-excursion (beginning-of-line) (point)))
(regex (save-excursion
(beginning-of-line)
(if (looking-at "^import ") "[ (,`]" "[ (,`.]"))))
(regex (if (ghc-module-completion-p) "[ (,`]" "[ (,`.]")))
(if (re-search-backward regex beg t)
(1+ (point))
beg))))