[elpa] externals/hyperbole 4f0a651 16/51: hproperty:but-flash-time - revert value from 0.05 back to 1000

[Stefan Monnier]

branch: externals/hyperbole
commit 4f0a6518e571b7eb2217910ed61ff5146b2ee925
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    hproperty:but-flash-time - revert value from 0.05 back to 1000
---
 Changes       | 10 ++++++++++
 hpath.el      |  2 +-
 hui-em-but.el |  6 +++---
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 6b6c253..8d2e8a4 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,13 @@
+2020-01-29  Bob Weiner  <rsw@gnu.org>
+
+* hpath.el (hpath:markup-link-anchor-regexp): Prevent matches to files like: 
".#a.org"
+
+* hui-em-but.el (hproperty:but-flash, hproperty:but-flash-time): Revert this 
value back to 1000
+    since users may have previously customized values that loading Hyperbole 
does not override.
+    Revert logic to using this to compute number of fractional seconds to 
flash a button.  Prior
+    change caused a mistaken wait of 1000 seconds since user customization 
value was not replaced
+    by loading Hyperbole
+
 2020-01-25  Bob Weiner  <rsw@gnu.org>
 
 * hactypes.el (link-to-ibut): Handled null 'defaults' when called 
interactively; needed when
diff --git a/hpath.el b/hpath.el
index 0009663..7092db3 100644
--- a/hpath.el
+++ b/hpath.el
@@ -503,7 +503,7 @@ use with `string-match'.")
   "Regexp that matches to a Markdown file suffix.")
 
 (defconst hpath:markup-link-anchor-regexp
-  "\\`\\(#?[^#]+\\)?\\(#\\)\\([^\]\[#^{}<>\"`'\\\n\t\f\r]*\\)"
+  "\\`\\(#?[^#]*[^#.]\\)?\\(#\\)\\([^\]\[#^{}<>\"`'\\\n\t\f\r]*\\)"
   "Regexp that matches a markup filename followed by a hash (#) and an 
optional in-file anchor name.
 Group 3 is the anchor name.")
 
diff --git a/hui-em-but.el b/hui-em-but.el
index 569b685..38e5294 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 0.05
+(defcustom hproperty:but-flash-time 1000
   "*Emacs button flash delay."
-  :type 'float
+  :type '(integer :match (lambda (_widget value) (and (integerp value) (> 
value 0))))
   :group 'hyperbole-buttons)
 
 (defcustom hproperty:item-highlight-color (hproperty:foreground)
@@ -353,7 +353,7 @@ highlighted."
        (unwind-protect
            (progn
              (hproperty:set-but-face start hproperty:flash-face)
-             (sit-for hproperty:but-flash-time)) ;; Force display update
+             (sit-for (/ hproperty:but-flash-time 10000.0))) ;; Force display 
update
          (hproperty:set-but-face start a)
          (sit-for 0))) ;; Force display update
     (if (and ibut (not prev)) (hproperty:but-delete start))))