[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 1f04665 3/3: Merge commit '98f32631ffdaa9daf735799734ad9d3
From: |
Artur Malabarba |
Subject: |
[elpa] master 1f04665 3/3: Merge commit '98f32631ffdaa9daf735799734ad9d3565146898' |
Date: |
Fri, 01 Apr 2016 14:07:57 +0000 |
branch: master
commit 1f0466581f3bb628c9ab8f64e4480a43b2367175
Merge: b4d20db 98f3263
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Merge commit '98f32631ffdaa9daf735799734ad9d3565146898'
---
packages/beacon/beacon.el | 11 +++++++++--
1 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/packages/beacon/beacon.el b/packages/beacon/beacon.el
index 4226149..a4024a0 100644
--- a/packages/beacon/beacon.el
+++ b/packages/beacon/beacon.el
@@ -5,7 +5,7 @@
;; Author: Artur Malabarba <address@hidden>
;; URL: https://github.com/Malabarba/beacon
;; Keywords: convenience
-;; Version: 1.0
+;; Version: 1.2
;; Package-Requires: ((seq "1.11"))
;; This program is free software; you can redistribute it and/or modify
@@ -236,7 +236,7 @@ COLORS applied to each one."
(seq-filter (lambda (o) (overlay-get o 'beacon))
(overlays-at (point))))))
-(defun beacon--vanish ()
+(defun beacon--vanish (&rest _)
"Turn off the beacon."
(when (timerp beacon--timer)
(cancel-timer beacon--timer))
@@ -387,6 +387,11 @@ The same is true for DELTA-X and horizonta movement."
(cond
;; Sanity check.
((not (markerp beacon--previous-place)))
+ ;; Blink for switching buffers.
+ ((and beacon-blink-when-buffer-changes
+ (not (eq (marker-buffer beacon--previous-place)
+ (current-buffer))))
+ (beacon-blink-automated))
;; Blink for switching windows.
((and beacon-blink-when-window-changes
(not (eq beacon--previous-window (selected-window))))
@@ -443,11 +448,13 @@ unreliable, so just blink immediately."
(add-hook 'window-scroll-functions #'beacon--window-scroll-function)
(add-hook 'focus-in-hook #'beacon--blink-on-focus)
(add-hook 'post-command-hook #'beacon--post-command)
+ (add-hook 'before-change-functions #'beacon--vanish)
(add-hook 'pre-command-hook #'beacon--record-vars)
(add-hook 'pre-command-hook #'beacon--vanish))
(remove-hook 'focus-in-hook #'beacon--blink-on-focus)
(remove-hook 'window-scroll-functions #'beacon--window-scroll-function)
(remove-hook 'post-command-hook #'beacon--post-command)
+ (remove-hook 'before-change-functions #'beacon--vanish)
(remove-hook 'pre-command-hook #'beacon--record-vars)
(remove-hook 'pre-command-hook #'beacon--vanish)))