summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-05 00:20:03 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-05 00:20:03 +0200
commit660eb5296bbc16776f7dd3b39f78e88567ed95d0 (patch)
tree42134cc8478fbc526183a123000a2c595091ef8c /elisp
parent8c8d54bf948f88ec2fcf5b1071736884087564d1 (diff)
downloadgeiser-chez-660eb5296bbc16776f7dd3b39f78e88567ed95d0.tar.gz
geiser-chez-660eb5296bbc16776f7dd3b39f78e88567ed95d0.tar.bz2
Racket: following error links in separate window.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-edit.el8
-rw-r--r--elisp/geiser-racket.el3
2 files changed, 7 insertions, 4 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 8d25133..563d8c6 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -130,12 +130,14 @@ or following links in error buffers.")
'follow-link t)
(defun geiser-edit--button-action (button)
- (let ((loc (button-get button 'geiser-location)))
- (when loc (geiser-edit--try-edit-location nil loc))))
+ (let ((loc (button-get button 'geiser-location))
+ (method (button-get button 'geiser-method)))
+ (when loc (geiser-edit--try-edit-location nil loc method))))
-(defun geiser-edit--make-link (beg end file line col)
+(defun geiser-edit--make-link (beg end file line col &optional method)
(make-button beg end
:type 'geiser-edit--button
+ 'geiser-method method
'geiser-location
(geiser-edit--make-location 'error file line col)
'help-echo "Go to error location"))
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 7f00810..de66029 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -161,7 +161,8 @@ This function uses `geiser-racket-init-file' if it exists."
(match-end 1)
(match-string 1)
(match-string 2)
- (match-string 3)))))
+ (match-string 3)
+ 'window))))
(defun geiser-racket--display-error (module key msg)
(when key