Small fix for when buffer doesn't end in a newline

[gnu-emacs-elpa] / beacon.el

diff --git a/beacon.el b/beacon.el
index 3ae584d39af5774a86965345c3fb7b85eb488ac0..c0bb43fb47c56b73b944711a52e7786b9a3351d3 100644 (file)
--- a/beacon.el
+++ b/beacon.el
@@ -258,7 +258,8 @@ Only returns `beacon-size' elements."
   (let* ((default-bg (or (save-excursion
                            (unless (eobp)
                              (forward-line 1)
-                             (unless (bobp) (forward-char -1)))
+                             (unless (or (bobp) (not (bolp)))
+                               (forward-char -1)))
                            (background-color-at-point))
                          (face-background 'default)))
          (bg (color-values (if (string-match "\\`unspecified-" default-bg)