diff options
| author | jao <jao@gnu.org> | 2020-12-02 18:43:18 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-12-02 18:43:18 +0000 |
| commit | 583674931793540ca24dacd73d1b6b95977b16d2 (patch) | |
| tree | 68eb25eee5ac7fa1c40a1fa54cd388debbcf1120 | |
| parent | 6e8add26f653d4b24f61773b027baa0265e4920d (diff) | |
| download | geiser-guile-583674931793540ca24dacd73d1b6b95977b16d2.tar.gz geiser-guile-583674931793540ca24dacd73d1b6b95977b16d2.tar.bz2 | |
Library declaration recognition (Arun Isaac)
| -rw-r--r-- | geiser-guile.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/geiser-guile.el b/geiser-guile.el index afb8951..fc8f3c8 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -188,8 +188,9 @@ This function uses `geiser-guile-init-file' if it exists." (save-excursion (geiser-syntax--pop-to-top) (if (or (re-search-backward geiser-guile--module-re nil t) - (looking-at geiser-guile--library-re) - (re-search-forward geiser-guile--module-re nil t)) + (re-search-backward geiser-guile--library-re nil t) + (re-search-forward geiser-guile--module-re nil t) + (re-search-forward geiser-guile--library-re nil t)) (geiser-guile--get-module (match-string-no-properties 1)) :f))) ((listp module) module) |