branch: master commit 938054bc6c62f72e74220493d9e23cd5ac90b2bf Merge: b629c75 729338b Author: Artur Malabarba <bruce.connor...@gmail.com> Commit: Artur Malabarba <bruce.connor...@gmail.com>
Merge commit '729338b02a0e331a4faf475da9f54771a3470106' --- packages/beacon/beacon.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/packages/beacon/beacon.el b/packages/beacon/beacon.el index 2c33d5e..f3cdea9 100644 --- a/packages/beacon/beacon.el +++ b/packages/beacon/beacon.el @@ -5,7 +5,7 @@ ;; Author: Artur Malabarba <em...@endlessparentheses.com> ;; URL: https://github.com/Malabarba/beacon ;; Keywords: convenience -;; Version: 1.3.2 +;; Version: 1.3.3 ;; Package-Requires: ((seq "2.14")) ;; This program is free software; you can redistribute it and/or modify @@ -157,6 +157,7 @@ For instance, if you want to disable beacon on buffers where (defcustom beacon-dont-blink-major-modes '(t magit-status-mode magit-popup-mode inf-ruby-mode + mu4e-headers-mode gnus-summary-mode gnus-group-mode) "A list of major-modes where the beacon won't blink. Whenever the current buffer satisfies `derived-mode-p' for @@ -237,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 ()