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-overlays.el | |
| parent | 33263a858cd4aa228f990cfc82e64a9a7a3b3c0a (diff) | |
Normalize the usage of if/when-let with that of let
Diffstat (limited to 'cider-overlays.el')
| -rw-r--r-- | cider-overlays.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-overlays.el b/cider-overlays.el index 92d9a31f..a71e33db 100644 --- a/cider-overlays.el +++ b/cider-overlays.el @@ -137,8 +137,8 @@ All arguments beyond these (PROPS) are properties to be used on the overlay." (declare (indent 1)) ;; If the marker points to a dead buffer, don't do anything. - (if-let (buffer (if (markerp where) (marker-buffer where) - (current-buffer))) + (if-let ((buffer (if (markerp where) (marker-buffer where) + (current-buffer)))) (with-current-buffer buffer (remove-overlays nil nil 'cider-type 'result) (save-excursion @@ -167,7 +167,7 @@ overlay." #'cider--remove-result-overlay-after-command nil 'local) (cider--remove-result-overlay-after-command)))) - (when-let (win (get-buffer-window buffer)) + (when-let ((win (get-buffer-window buffer))) ;; Left edge is visible. (when (and (<= (window-start win) (point)) ;; In 24.3 `<=' is still a binary perdicate. |