diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-21 23:36:07 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-21 23:36:07 +0100 |
| commit | 4210c4d076f4b91585b5621d2b64097ae2483c55 (patch) | |
| tree | 9f6cfc3566e07845795cc60d75e5f7b9bc9c44e7 /cider-stacktrace.el | |
| parent | 33263a858cd4aa228f990cfc82e64a9a7a3b3c0a (diff) | |
Normalize the usage of if/when-let with that of let
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 768f18a6..97d286dd 100644 --- a/cider-stacktrace.el +++ b/cider-stacktrace.el @@ -270,7 +270,7 @@ hidden count." (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)) @@ -297,14 +297,14 @@ hidden count." "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) @@ -336,7 +336,7 @@ 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 () |