[elpa] externals/hyperbole fc7c511 15/51: Merge branch 'master' of hyperbole

[Stefan Monnier]

branch: externals/hyperbole
commit fc7c51118d7b6c70d19a9c2c84f4cb8c9bad5d71
Merge: aa04634 db4dd6c
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Merge branch 'master' of hyperbole
---
 hui-em-but.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/hui-em-but.el b/hui-em-but.el
index fefb991..569b685 100644
--- a/hui-em-but.el
+++ b/hui-em-but.el
@@ -57,9 +57,9 @@
   :type 'boolean
   :group 'hyperbole-buttons)
 
-(defcustom hproperty:but-flash-time 1000
-  "*Machine specific value for empty loop counter, Emacs button flash delay."
-  :type '(integer :match (lambda (_widget value) (and (integerp value) (> 
value 0))))
+(defcustom hproperty:but-flash-time 0.05
+  "*Emacs button flash delay."
+  :type 'float
   :group 'hyperbole-buttons)
 
 (defcustom hproperty:item-highlight-color (hproperty:foreground)
@@ -353,9 +353,7 @@ highlighted."
        (unwind-protect
            (progn
              (hproperty:set-but-face start hproperty:flash-face)
-             (sit-for 0) ;; Force display update
-             ;; Delay before redraw button
-             (let ((i 0)) (while (< i hproperty:but-flash-time) (setq i (1+ 
i)))))
+             (sit-for hproperty:but-flash-time)) ;; Force display update
          (hproperty:set-but-face start a)
          (sit-for 0))) ;; Force display update
     (if (and ibut (not prev)) (hproperty:but-delete start))))