diff options
author | Tianxiang Xiong <tianxiang.xiong@gmail.com> | 2017-12-11 01:17:50 -0800 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-12-11 16:09:54 +0000 |
commit | b34057a1944354cbd2100e2beb08d6c6e1e06da3 (patch) | |
tree | a033bdacf950d04623b1f78824c171ee7dceab07 /cider-stacktrace.el | |
parent | b484daa718c09c3d41e260878f93a35f05edb5b4 (diff) |
Replace `if-let` and `when-let` with starred versions
Fix #2130.
Emacs 26 obsoletes `if-let` and `when-let`, replacing them with `if-let*` and
`when-let*`. This raises byte-compilation warnings (treated as errors) when
testing against Emacs 26.
See: http://git.savannah.gnu.org/cgit/emacs.git/tree/etc/NEWS?h=emacs-26#n1278
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 () |