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 ()