branch: externals/hyperbole
commit cf6c291eae912644b7b01b78be72960344895c79
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: Mats Lidell <mats.lid...@lidells.se>
Rename ibut:act to ibut:act-label
---
ChangeLog | 3 +++
hbut.el | 6 +++---
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 1cc9f2df1f..a117b19540 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2024-02-08 Mats Lidell <ma...@gnu.org>
+* hbut.el (ibut:act-label): Rename ibut:act to ibut:act-label, it takes a
+ label as arg.
+
* hui-menu.el (hui-menu-explicit-buttons): Use ebut:act-label.
* hbut.el (ebut:act-label): Rename ebut:act to ebut:act-label, it takes a
diff --git a/hbut.el b/hbut.el
index ee00cf9a74..8c294037f6 100644
--- a/hbut.el
+++ b/hbut.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 18-Sep-91 at 02:57:09
-;; Last-Mod: 2-Feb-24 at 21:41:12 by Mats Lidell
+;; Last-Mod: 2-Feb-24 at 21:47:24 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -1693,7 +1693,7 @@ Keys in optional KEY-SRC or the current buffer."
;;; ========================================================================
-(defun ibut:act (label)
+(defun ibut:act-label (label)
"Activate Hyperbole implicit button with <[LABEL]> from the current buffer."
(interactive (list (hargs:read-match "Activate implicit button labeled: "
(ibut:alist)
@@ -1702,7 +1702,7 @@ Keys in optional KEY-SRC or the current buffer."
(but (ibut:get lbl-key)))
(if but
(hbut:act but)
- (error "(ibut:act): No implicit button labeled: %s" label))))
+ (error "(ibut:act-label): No implicit button labeled: %s" label))))
(defun ibut:alist (&optional file)
"Return alist of labeled ibuts in FILE or the current buffer.
