From 13579cb9349034d9b148191c28abffe85b8c2dfe Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 5 Jul 2010 00:20:03 +0200 Subject: Racket: following error links in separate window. --- elisp/geiser-edit.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-edit.el') 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")) -- cgit v1.2.3