diff options
author | Roger Gilliar <roger@gilliar.de> | 2015-10-12 18:56:08 +0200 |
---|---|---|
committer | Roger Gilliar <roger@gilliar.de> | 2015-10-19 20:43:22 +0200 |
commit | 915f5639d821be8f1847d80a770840437c358c88 (patch) | |
tree | f65edb8bd3f265e395f076e3d5a0669b476f4969 /cider-overlays.el | |
parent | e9909b86ac06a8df35fbc1280003ed381c25b7fe (diff) |
[Fix #1348] Remove dash dependency
Diffstat (limited to 'cider-overlays.el')
-rw-r--r-- | cider-overlays.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/cider-overlays.el b/cider-overlays.el index ace77385..5ce5462d 100644 --- a/cider-overlays.el +++ b/cider-overlays.el @@ -26,6 +26,7 @@ ;;; Code: (require 'cider-common) +(require 'cider-compat) (require 'cl-lib) @@ -136,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 @@ -166,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. |