branch: externals/hyperbole
commit 24517d128026f427a7a82557d49a698d69092ccc
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
hui.el - Generalize hargs:read-match by using hbut:alist
---
ChangeLog | 4 ++++
hui.el | 6 +++---
2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index cec55ab4a6..eddbffea89 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2024-08-15 Bob Weiner <r...@gnu.org>
+* hui.el (hbut:alist, hbut:list): Add to match but type-specific functions.
+ (hui:hbut-help): Change 'hargs:read-match' completion table to use
+ 'hbut:alist' instead of 'ebut:alist'.
+
* Makefile (HYPERBOLE_FILES): Add all Org files under the hywiki dir.
2024-08-14 Bob Weiner <r...@gnu.org>
diff --git a/hui.el b/hui.el
index 769249bd92..12151bd620 100644
--- a/hui.el
+++ b/hui.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 19-Sep-91 at 21:42:03
-;; Last-Mod: 14-Jul-24 at 23:32:10 by Bob Weiner
+;; Last-Mod: 15-Aug-24 at 22:44:16 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -843,9 +843,9 @@ Signal an error if point is not within a button."
BUT defaults to the button whose label point is within."
(interactive)
(setq but (or but (hbut:at-p)
- (ebut:get (ebut:label-to-key
+ (hbut:get (hbut:label-to-key
(hargs:read-match "Help for button: "
- (ebut:alist) nil t nil 'ebut)))))
+ (hbut:alist) nil t nil 'hbut)))))
(unless but
(hypb:error "(hbut-help): Move point to a valid Hyperbole button"))
(unless (hbut:is-p but)
