branch: master commit c9cc62d42ef0c14079c97890bdd402c8efa4e52b Merge: aaeb619 913086b Author: Artur Malabarba <malaba...@users.noreply.github.com> Commit: GitHub <nore...@github.com>
Merge pull request #50 from DamienCassou/fix-crash-in-emacs-daemon Don't crash when Emacs runs as a daemon --- beacon.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/beacon.el b/beacon.el index 9a3edac..93e6646 100644 --- a/beacon.el +++ b/beacon.el @@ -280,9 +280,10 @@ Only returns `beacon-size' elements." (color-distance "white" bg))) (make-list 3 (* beacon-color 65535))) (t (make-list 3 (* (- 1 beacon-color) 65535)))))) - (apply #'seq-mapn (lambda (r g b) (format "#%04x%04x%04x" r g b)) - (mapcar (lambda (n) (butlast (beacon--int-range (elt fg n) (elt bg n)))) - [0 1 2])))) + (when bg + (apply #'seq-mapn (lambda (r g b) (format "#%04x%04x%04x" r g b)) + (mapcar (lambda (n) (butlast (beacon--int-range (elt fg n) (elt bg n)))) + [0 1 2]))))) ;;; Blinking