[elpa] externals/hyperbole 29df377 2/8: Merge branch 'master' of hyperbole

[Stefan Monnier]

branch: externals/hyperbole
commit 29df377ea8874e527f8c543dc6218a2b21d1eeb8
Merge: d1f75c6 e015c36
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Merge branch 'master' of hyperbole
---
 Changes            |  4 ++++
 test/hbut-tests.el | 11 +++++++++++
 2 files changed, 15 insertions(+)

diff --git a/Changes b/Changes
index 7e15e1e..f01e591 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+2021-03-21  Mats Lidell  <matsl@gnu.org>
+
+* test/hbut-tests.el (hbut-defal-url-%s): Add test for %s format-style.
+
 2021-03-21  Bob Weiner  <rsw@gnu.org>
 
 * hbut.el (defal): Added support for use of %s format-style grouping 1 arg
diff --git a/test/hbut-tests.el b/test/hbut-tests.el
index 4730fc5..41cb6aa 100644
--- a/test/hbut-tests.el
+++ b/test/hbut-tests.el
@@ -50,6 +50,17 @@
           (action-key)))
     (ibtype:delete 'ibtypes::defal-url)))
 
+(ert-deftest hbut-defal-url-%s ()
+  "defal supports %s in LINK-EXPR."
+  (defal defal-url "https://github.com/rswgnu/hyperbole/pull/%s";)
+  (unwind-protect
+      (with-temp-buffer
+        (insert "<defal-url 34>")
+        (goto-char 4)
+        (let ((browse-url-browser-function 'hbut-defal-url))
+          (action-key)))
+    (ibtype:delete 'ibtypes::defal-url)))
+
 (ert-deftest hbut-defal-key-sequence ()
   (skip-unless (not noninteractive))
   (defal defal-key "{C-h v \\1 RET}")