branch: elpa/cider
commit f24060eb8be8084d318337873df1f9b5c3dd58e3
Author: yuhan0 <qyth...@gmail.com>
Commit: Bozhidar Batsov <bozhi...@batsov.dev>
Fix lint warnings
---
cider-debug.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/cider-debug.el b/cider-debug.el
index 9918531d75..5b9a69b38b 100644
--- a/cider-debug.el
+++ b/cider-debug.el
@@ -125,17 +125,16 @@ configure `cider-debug-prompt' instead."
(defun cider--debug-response-handler (response)
"Handles RESPONSE from the cider.debug middleware."
- (nrepl-dbind-response response (status id causes)
+ (nrepl-dbind-response response (status id causes caught-msg)
(when (member "enlighten" status)
(cider--handle-enlighten response))
(when (or (member "eval-error" status)
(member "stack" status))
;; TODO: Make the error buffer a bit friendlier when we're just printing
;; the stack.
- (nrepl-dbind-response response (causes caught-msg)
- (if cider-show-error-buffer
- (cider--render-stacktrace-causes causes)
- (cider--debug-display-result-overlay nil caught-msg))))
+ (if cider-show-error-buffer
+ (cider--render-stacktrace-causes causes)
+ (cider--debug-display-result-overlay nil caught-msg)))
(when (member "need-debug-input" status)
(cider--handle-debug response))
(when (member "done" status)
@@ -158,7 +157,8 @@ configure `cider-debug-prompt' instead."
"Used as an overlay's before-string prop to place a fringe arrow.")
(defun cider--debug-display-result-overlay (value caught)
- "Place an overlay at point displaying VALUE."
+ "Place an overlay at point displaying VALUE.
+When CAUGHT is non-nil, display it as an error message overlay."
(when cider-debug-use-overlays
;; This is cosmetic, let's ensure it doesn't break the session no matter
what.
(ignore-errors
