diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-13 23:44:38 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-13 23:48:02 +0100 |
| commit | 0eabeb1cb600c6847c07b1f721ab6a6d1ff16a18 (patch) | |
| tree | f3f58fc4d99b4510a86fb7418c3d02e0707a0801 /cider-overlays.el | |
| parent | 5cbbe9451db560df19695fe8e777b7160cb5908b (diff) | |
[Fix #1364] Don't rely on multi-arity of <=
Diffstat (limited to 'cider-overlays.el')
| -rw-r--r-- | cider-overlays.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cider-overlays.el b/cider-overlays.el index a8dc2023..ace77385 100644 --- a/cider-overlays.el +++ b/cider-overlays.el @@ -168,7 +168,9 @@ overlay." (cider--remove-result-overlay-after-command)))) (-when-let (win (get-buffer-window buffer)) ;; Left edge is visible. - (when (and (<= (window-start win) (point) (window-end win)) + (when (and (<= (window-start win) (point)) + ;; In 24.3 `<=' is still a binary perdicate. + (<= (point) (window-end win)) ;; Right edge is visible. This is a little conservative ;; if the overlay contains line breaks. (or (< (+ (current-column) (string-width value)) |