summaryrefslogtreecommitdiff
path: root/cider-stacktrace.el
diff options
context:
space:
mode:
Diffstat (limited to 'cider-stacktrace.el')
-rw-r--r--cider-stacktrace.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-stacktrace.el b/cider-stacktrace.el
index 513a4380..4cc3959d 100644
--- a/cider-stacktrace.el
+++ b/cider-stacktrace.el
@@ -429,13 +429,13 @@ it wraps to 0."
(button-get button 'file)))))
(cider--jump-to-loc-from-info info t)))
-(defun cider-stacktrace-jump ()
+(defun cider-stacktrace-jump (&optional arg)
"Like `cider-jump-to-var', but uses the stack frame source at point, if available."
- (interactive)
+ (interactive "P")
(let ((button (button-at (point))))
(if (and button (button-get button 'line))
(cider-stacktrace-navigate button)
- (call-interactively 'cider-jump-to-var))))
+ (cider-jump-to-var arg))))
;; Rendering