branch: master
commit 31e927e1972e420d5df784483f4ede9f11e03c75
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
Use binary <= only
---
beacon.el | 5 ++---
1 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/beacon.el b/beacon.el
index e237c69..0b20423 100644
--- 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.
