From ed29f9f4f9661a71cf5ee3f1fd3b2f6fb0a6bd37 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 18 Dec 2009 00:24:16 +0100 Subject: Guile: bug in backtrace display fixed. --- elisp/geiser-guile.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) (limited to 'elisp') 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 -- cgit v1.2.3