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-browse-spec.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-browse-spec.el')
| -rw-r--r-- | cider-browse-spec.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-browse-spec.el b/cider-browse-spec.el index 858fbf98..da4440b2 100644 --- a/cider-browse-spec.el +++ b/cider-browse-spec.el @@ -282,7 +282,7 @@ may also be a button, so this function can be used a the button's `action' property." (interactive) (let ((pos (or pos (point)))) - (when-let ((spec (button-get pos 'spec-name))) + (when-let* ((spec (button-get pos 'spec-name))) (cider-browse-spec--browse spec)))) ;; Interactive Functions @@ -292,8 +292,8 @@ property." (interactive) (cider-ensure-connected) (cider-ensure-op-supported "spec-example") - (if-let ((spec cider-browse-spec--current-spec)) - (if-let ((example (cider-sync-request:spec-example spec))) + (if-let* ((spec cider-browse-spec--current-spec)) + (if-let* ((example (cider-sync-request:spec-example spec))) (with-current-buffer (cider-popup-buffer cider-browse-spec-example-buffer t) (cider-browse-spec-example-mode) (setq-local cider-browse-spec--current-spec spec) |