branch: master
commit 729338b02a0e331a4faf475da9f54771a3470106
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Fix off-by-1 error causing the beacon to wrap lines
---
beacon.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/beacon.el b/beacon.el
index b69cc67..f3cdea9 100644
--- a/beacon.el
+++ b/beacon.el
@@ -238,7 +238,7 @@ The property's value is a string of spaces with background
COLORS applied to each one."
;; The after-string must not be longer than the remaining columns
;; from point to right window-end else it will be wrapped around.
- (let ((colors (seq-take colors (- (window-width) (current-column)))))
+ (let ((colors (seq-take colors (- (window-width) (current-column) 1))))
(beacon--ov-put-after-string (beacon--make-overlay 0) colors)))
(defun beacon--ov-at-point ()
