diff options
author | Tianxiang Xiong <tianxiang.xiong@gmail.com> | 2017-12-17 17:52:51 -0800 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-12-18 07:36:27 +0000 |
commit | 44d7c46dac266e56c8fdc228dbfe7b5f8a405cee (patch) | |
tree | 470aebac5377d4ed1c4c7b2e25af2dc3f155f717 | |
parent | 19d7b4bc0f2fa245071a8523cb5c9fda1a836758 (diff) |
Replace `{if, when}-let` with `{if, when}-let*`
`cider-compat` now defines `{if, when}-let*` to match Emacs 26.
See: https://travis-ci.org/clojure-emacs/cider/jobs/317868987#L1065
-rw-r--r-- | cider-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-mode.el b/cider-mode.el index 36ef90d0..b8ec032a 100644 --- a/cider-mode.el +++ b/cider-mode.el @@ -130,7 +130,7 @@ of the namespace in the Clojure source buffer." (setq a-repl b)) (equal type (cider-connection-type-for-buffer b)))) (buffer-list)))) - (if-let ((repl (or the-repl a-repl))) + (if-let* ((repl (or the-repl a-repl))) (cider--switch-to-repl-buffer repl set-namespace) (user-error "No REPL found")))) @@ -156,13 +156,13 @@ Clojure buffer and the REPL buffer." (the-buf (let ((repl-type (cider-connection-type-for-buffer))) (seq-find (lambda (b) (unless (with-current-buffer b (derived-mode-p 'cider-repl-mode)) - (when-let ((type (cider-connection-type-for-buffer b))) + (when-let* ((type (cider-connection-type-for-buffer b))) (unless a-buf (setq a-buf b)) (or (equal type "multi") (equal type repl-type))))) (buffer-list))))) - (if-let ((buf (or the-buf a-buf))) + (if-let* ((buf (or the-buf a-buf))) (if cider-repl-display-in-current-window (pop-to-buffer-same-window buf) (pop-to-buffer buf)) |