From 98f32631ffdaa9daf735799734ad9d3565146898 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 28 Mar 2016 21:16:00 -0300 Subject: [PATCH] [Fix #44] Vanish the beacon if anything in the buffer changes --- beacon.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/beacon.el b/beacon.el index e978a7c72..a4024a043 100644 --- a/beacon.el +++ b/beacon.el @@ -5,7 +5,7 @@ ;; Author: Artur Malabarba ;; URL: https://github.com/Malabarba/beacon ;; Keywords: convenience -;; Version: 1.1 +;; 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)) @@ -448,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))) -- 2.39.2