diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-24 19:31:28 +0200 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-24 19:31:28 +0200 |
| commit | 4e0304a5fb851805e1806d08db86f2d66e44643c (patch) | |
| tree | 83fa5d72a4992ed893275ed32b69dc5112afcfc6 /cider-overlays.el | |
| parent | cf55e903a192dc008ca975c37254ae2134b3bf0b (diff) | |
Update a usage of <= for Emacs 24.4+
Diffstat (limited to 'cider-overlays.el')
| -rw-r--r-- | cider-overlays.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/cider-overlays.el b/cider-overlays.el index 8345e283..7cbed0bd 100644 --- a/cider-overlays.el +++ b/cider-overlays.el @@ -241,9 +241,7 @@ overlay." (cider--remove-result-overlay-after-command)))) (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. - (<= (point) (window-end win)) + (when (and (<= (window-start win) (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)) |