[elpa] master c9cc62d 2/5: Merge pull request #50 from DamienCassou/fix-crash-in-emacs-daemon

[Artur Malabarba]

branch: master
commit c9cc62d42ef0c14079c97890bdd402c8efa4e52b
Merge: aaeb619 913086b
Author: Artur Malabarba <address@hidden>
Commit: GitHub <address@hidden>

    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