Use binary <= only

[gnu-emacs-elpa] / beacon.el

diff --git a/beacon.el b/beacon.el
index e237c69d19a01bbfaa62f4a77b504a318127197b..0b2042381be8ce034ce320131a72d621fc4119a0 100644 (file)
--- a/beacon.el
+++ b/beacon.el
@@ -266,9 +266,8 @@ Only returns `beacon-size' elements."
 
 (defun beacon--pos-on-current-line-p (pos)
   "Return non-nil if POS is on the current line."
-  (<= (save-excursion (beginning-of-line) (point))
-      pos
-      (save-excursion (end-of-line) (point))))
+  (and (<= (save-excursion (beginning-of-line) (point)) pos)
+       (<= pos (save-excursion (end-of-line) (point)))))
 
 (defun beacon--movement-> (delta)
   "Return non-nil if latest point movement is > DELTA.