From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 3 Dec 2015 21:35:59 +0000 (+0000)
Subject: Fix #38 - bob error introduced by previous commit
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/2f6ec690f2b0085f4429e6a61fd572757ca8aa78

Fix #38 - bob error introduced by previous commit
---

diff --git a/beacon.el b/beacon.el
index c2b5f6b0b..76c0db0dd 100644
--- a/beacon.el
+++ b/beacon.el
@@ -256,8 +256,9 @@ Only returns `beacon-size' elements."
 (defun beacon--color-range ()
   "Return a list of background colors for the beacon."
   (let* ((default-bg (or (save-excursion
-                           (forward-line 1)
-                           (forward-char -1)
+                           (unless (eobp)
+                             (forward-line 1)
+                             (unless (bobp) (forward-char -1)))
                            (background-color-at-point))
                          (face-background 'default)))
          (bg (color-values (if (string-match "\\`unspecified-" default-bg)