[elpa] master 2ac8539 7/9: [Fix #40] Actually allow beacon-blink to be called as a command

[Artur Malabarba]

branch: master
commit 2ac8539830be6bf45e164b1cc8b0f0a6230e6808
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    [Fix #40] Actually allow beacon-blink to be called as a command
---
 beacon.el |    8 +++-----
 1 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/beacon.el b/beacon.el
index 4d4e58b..aac96e7 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))