diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-12-18 00:24:16 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-12-18 00:24:16 +0100 |
| commit | ed29f9f4f9661a71cf5ee3f1fd3b2f6fb0a6bd37 (patch) | |
| tree | 887045e4a065ef2972a4825fa4b73464f3196e51 | |
| parent | 58ae3a1f432c71030dbdaf392d71e105a056c693 (diff) | |
| download | geiser-guile-ed29f9f4f9661a71cf5ee3f1fd3b2f6fb0a6bd37.tar.gz geiser-guile-ed29f9f4f9661a71cf5ee3f1fd3b2f6fb0a6bd37.tar.bz2 | |
Guile: bug in backtrace display fixed.
| -rw-r--r-- | elisp/geiser-guile.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 332454f..c173f4d 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -109,15 +109,16 @@ This function uses `geiser-guile-init-file' if it exists." "^In \\([^\n:]+\\):\n *\\([[:digit:]]+\\|\\?\\):") (defun geiser-guile--find-files () - (save-excursion - (while (re-search-forward geiser-guile--file-rx nil t) - (let ((file (match-string 1)) - (beg (match-beginning 1)) - (end (match-end 1)) - (line (string-to-number (or (match-string 2) "0")))) - (let ((file (geiser-guile--resolve-file file))) - (when file - (geiser-edit--make-link beg end file line 0))))))) + (with--geiser-implementation 'guile + (save-excursion + (while (re-search-forward geiser-guile--file-rx nil t) + (let ((file (match-string 1)) + (beg (match-beginning 1)) + (end (match-end 1)) + (line (string-to-number (or (match-string 2) "0")))) + (let ((file (geiser-guile--resolve-file file))) + (when file + (geiser-edit--make-link beg end file line 0)))))))) (defun geiser-guile--display-error (module key msg) (when key |