diff options
Diffstat (limited to 'cider-stacktrace.el')
| -rw-r--r-- | cider-stacktrace.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cider-stacktrace.el b/cider-stacktrace.el index 1ddb8dac..0b80f63a 100644 --- a/cider-stacktrace.el +++ b/cider-stacktrace.el @@ -352,7 +352,7 @@ POS-FILTERS ensure that frames with flag is shown." (save-excursion (goto-char (point-min)) (cl-flet ((next-detail (end) - (when-let ((pos (next-single-property-change (point) 'detail))) + (when-let* ((pos (next-single-property-change (point) 'detail))) (when (< pos end) (goto-char pos))))) (let ((inhibit-read-only t)) @@ -402,14 +402,14 @@ grouped with a suppressed error type." "Move point to the previous exception cause, if one exists." (interactive) (with-current-buffer cider-error-buffer - (when-let ((pos (previous-single-property-change (point) 'cause))) + (when-let* ((pos (previous-single-property-change (point) 'cause))) (goto-char pos)))) (defun cider-stacktrace-next-cause () "Move point to the next exception cause, if one exists." (interactive) (with-current-buffer cider-error-buffer - (when-let ((pos (next-single-property-change (point) 'cause))) + (when-let* ((pos (next-single-property-change (point) 'cause))) (goto-char pos)))) (defun cider-stacktrace-cycle-cause (num &optional level) @@ -441,7 +441,7 @@ When it reaches 3, it wraps to 0." "Cycle the visibility of current exception at point, if any." (interactive) (with-current-buffer cider-error-buffer - (when-let ((num (get-text-property (point) 'cause))) + (when-let* ((num (get-text-property (point) 'cause))) (cider-stacktrace-cycle-cause num)))) (defun cider-stacktrace-cycle-cause-1 () |