[nongnu] elpa/geiser-guile 5ed0541 243/284: Possible fix for scanning problem

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 5ed0541617ba1616fa52b1a973eb7673954b4937
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Possible fix for scanning problem
    
    Apparently, the nesting level returned by emacs's syntax parser can be
    negative (presumably when it gets confused), and we were not avoiding
    calling backward-up-list when that happened.
    
    Could or could not address issue #41...
---
 elisp/geiser-guile.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index fbe6075..e8eb11a 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -171,9 +171,7 @@ This function uses `geiser-guile-init-file' if it exists."
 (defun geiser-guile--get-module (&optional module)
   (cond ((null module)
          (save-excursion
-           (ignore-errors
-             (while (not (zerop (geiser-syntax--nesting-level)))
-               (backward-up-list)))
+           (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))