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

more specific regex.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-06-28 14:08:10 +09:00
parent 2740a265cb
commit fd6cb3ebf9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
elisp/ghc-comp.el
View File

@ -179,7 +179,7 @@ unloaded modules are loaded")
(let ((beg (save-excursion (beginning-of-line) (point))) (let ((beg (save-excursion (beginning-of-line) (point)))
(regex (save-excursion (regex (save-excursion
(beginning-of-line) (beginning-of-line)
(if (looking-at "import") "[ (,`]" "[ (,`.]")))) (if (looking-at "^import ") "[ (,`]" "[ (,`.]"))))
(if (re-search-backward regex beg t) (if (re-search-backward regex beg t)
(1+ (point)) (1+ (point))
beg)))) beg))))