[elpa] externals/hyperbole c7bcb03 2/2: Merge branch 'master' of hyperbole

[ELPA Syncer]

branch: externals/hyperbole
commit c7bcb035cb42960c14f4423c28ef54e35898c08b
Merge: 9812d9d 3785c5d
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Merge branch 'master' of hyperbole
---
 ChangeLog     | 4 ++++
 hui-em-but.el | 8 +++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index fea0c3b..a20c653 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -54,6 +54,10 @@
     dynamic variable binding.
                 (hkey-execute): Update hkey-debug call.
 
+2021-05-05  Mats Lidell  <matsl@gnu.org>
+
+* hui-em-but.el (hproperty:but-flash-time): Mark hproperty:but-flash as 
obsolete.
+    (hproperty:but-flash-time-seconds): Add customized flash time based on 
seconds.
 
 2021-05-04  Bob Weiner  <rsw@gnu.org>
 
diff --git a/hui-em-but.el b/hui-em-but.el
index e9fb43b..fe526e5 100644
--- a/hui-em-but.el
+++ b/hui-em-but.el
@@ -47,6 +47,12 @@
   "*Emacs button flash delay."
   :type '(integer :match (lambda (_widget value) (and (integerp value) (> 
value 0))))
   :group 'hyperbole-buttons)
+(make-obsolete-variable 'hproperty:but-flash-time "Use 
`hproperty:but-flash-time-seconds' instead" "8.0")
+
+(defcustom hproperty:but-flash-time-seconds 0.05
+  "*Emacs button flash delay."
+  :type 'float
+  :group 'hyperbole-buttons)
 
 (defface hbut-flash
   '((((class color) (min-colors 88) (background light))
@@ -256,7 +262,7 @@ highlighted."
       (unwind-protect
          (progn
            (hproperty:set-but-face start hproperty:flash-face)
-           (sit-for (/ hproperty:but-flash-time 5000.0))) ;; Force display 
update
+           (sit-for hproperty:but-flash-time-seconds)) ;; Force display update
        (hproperty:set-but-face start a)
        (redisplay t)))
     (and ibut (not prev) (hproperty:but-delete start))))