branch: externals/hyperbole
commit c7bcb035cb42960c14f4423c28ef54e35898c08b
Merge: 9812d9d 3785c5d
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@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 <ma...@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 <r...@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))))
