[elpa] externals/hyperbole 3785c5d: Use new variable for the flash time to avoid old customization (#22)

[ELPA Syncer]

branch: externals/hyperbole
commit 3785c5dbcd3ca8bc0e7247cc59d5ca1c9b1190ad
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Use new variable for the flash time to avoid old customization (#22)
---
 ChangeLog     | 5 +++++
 hui-em-but.el | 8 +++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index fe2e2a2..4b43e31 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
 * man/hyperbole.texi (Manual Stable Release Installation): Add this
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))))