From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sat, 16 Jan 2016 07:39:13 +0000 (+0000)
Subject: [Fix #40] Actually allow beacon-blink to be called as a command
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/2ac8539830be6bf45e164b1cc8b0f0a6230e6808

[Fix #40] Actually allow beacon-blink to be called as a command
---

diff --git a/beacon.el b/beacon.el
index 4d4e58b2d..aac96e74f 100644
--- a/beacon.el
+++ b/beacon.el
@@ -370,8 +370,8 @@ The same is true for DELTA-X and horizonta movement."
 (defun beacon--post-command ()
   "Blink if point moved very far."
   (cond
-   ((not (markerp beacon--previous-place))
-    (beacon--vanish))
+   ;; Sanity check.
+   ((not (markerp beacon--previous-place)))
    ;; Blink for switching windows.
    ((and beacon-blink-when-window-changes
          (not (eq beacon--previous-window (selected-window))))
@@ -383,9 +383,7 @@ The same is true for DELTA-X and horizonta movement."
    ;; Blink for movement
    ((beacon--movement-> beacon-blink-when-point-moves-vertically
                   beacon-blink-when-point-moves-horizontally)
-    (beacon-blink))
-   ;; Even if we don't blink, vanish any previous beacon.
-   (t (beacon--vanish)))
+    (beacon-blink)))
   (beacon--maybe-push-mark)
   (setq beacon--window-scrolled nil))