]> code.delx.au - gnu-emacs-elpa/commitdiff
Merge commit '16be7a12d0dbbbd0e59fc2ccf9a7c7085eb9cf5a'
authorArtur Malabarba <bruce.connor.am@gmail.com>
Sat, 30 Apr 2016 14:50:20 +0000 (11:50 -0300)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Sat, 30 Apr 2016 14:50:20 +0000 (11:50 -0300)
1  2 
packages/beacon/beacon.el

index 6c35e2b29393a7e6717917727df79798257435e4,8126c43448c824665a1655d4f9b32169db4d1af0..8126c43448c824665a1655d4f9b32169db4d1af0
@@@ -5,7 -5,7 +5,7 @@@
  ;; Author: Artur Malabarba <emacs@endlessparentheses.com>
  ;; URL: https://github.com/Malabarba/beacon
  ;; Keywords: convenience
- ;; Version: 1.2.1
+ ;; Version: 1.3.0
  ;; Package-Requires: ((seq "2.14"))
  
  ;; This program is free software; you can redistribute it and/or modify
@@@ -166,6 -166,10 +166,10 @@@ predictable ways, when the blink would 
  than helpful.."
    :type '(repeat symbol))
  
+ (defcustom beacon-before-blink-hook nil
+   "Hook run immediately before blinking the beacon."
+   :type 'hook)
  \f
  ;;; Internal variables
  (defvar beacon--window-scrolled nil)
@@@ -321,6 -325,7 +325,7 @@@ unconditionally (even if `beacon-mode' 
  be invoked as a user command or called from lisp code."
    (interactive)
    (beacon--vanish)
+   (run-hooks 'beacon-before-blink-hook)
    (beacon--shine)
    (setq beacon--timer
          (run-at-time beacon-blink-delay