diff options
| author | Michael Griffiths <mikey@cich.li> | 2015-04-23 19:31:27 +0100 |
|---|---|---|
| committer | Michael Griffiths <mikey@cich.li> | 2015-04-25 16:56:40 +0100 |
| commit | 9b2b3133063a2fd7a2ca0d5407b9052096edc42c (patch) | |
| tree | f99148d8e53d5c66459321663b5f30a016ece0ac /cider-test.el | |
| parent | 134873479bbe77b8ccf8c492adb88954185242e0 (diff) | |
Remove unused parameter from cider-test-stacktrace
Diffstat (limited to 'cider-test.el')
| -rw-r--r-- | cider-test.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-test.el b/cider-test.el index c95fbe83..11449b8e 100644 --- a/cider-test.el +++ b/cider-test.el @@ -193,8 +193,8 @@ cider-auto-select-error-buffer) (reverse causes)))))))))) -(defun cider-test-stacktrace (&optional button) - "Display stacktrace for the erring test at point, optionally from BUTTON." +(defun cider-test-stacktrace () + "Display stacktrace for the erring test at point." (interactive) (let ((ns (get-text-property (point) 'ns)) (var (get-text-property (point) 'var)) @@ -289,7 +289,7 @@ With the actual value, the outermost '(not ...)' s-expression is removed." (progn (insert-text-button error 'follow-link t - 'action 'cider-test-stacktrace + 'action '(lambda (_button) (cider-test-stacktrace)) 'help-echo "View causes and stacktrace") (newline)) (insert (cider-font-lock-as-clojure actual))))) |