branch: externals/hyperbole
commit 588eb7b61a24ba818eab500f13699950b0b5e6f2
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@gnu.org>
ibtype:delete and actype:delete - Make interactive with completion
Also remove call to `symtable:delete' since following call to
`htype:delete' does that.
---
ChangeLog | 5 +++++
hact.el | 6 +++---
hbut.el | 2 +-
3 files changed, 9 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 0be6a70171..d26001c1ae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+* hbut.el (ibtype:delete):
+ hact.el (actype:delete): Make interactive with completion.
+ Remove call to 'symtable:delete' since following call to
+ 'htype:delete' does that.
+
2024-04-13 Bob Weiner <r...@gnu.org>
* hsettings.el (hyperbole-web-search-alist):
diff --git a/hact.el b/hact.el
index 995bf772d0..4833778ada 100644
--- a/hact.el
+++ b/hact.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 18-Sep-91 at 02:57:09
-;; Last-Mod: 18-Feb-24 at 11:27:01 by Mats Lidell
+;; Last-Mod: 14-Apr-24 at 01:33:24 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -516,8 +516,8 @@ Return symbol created when successful, else nil."
(defun actype:delete (type)
"Delete an action TYPE (a symbol). Return TYPE's symbol if it existed."
- (symtable:delete type symtable:actypes)
- (htype:delete type 'actypes))
+ (interactive (list (hui:htype-delete 'actypes))
+ (htype:delete type 'actypes)))
(defun actype:doc (but &optional full)
"Return first line of action doc for BUT.
diff --git a/hbut.el b/hbut.el
index 237910eb49..21185d1d10 100644
--- a/hbut.el
+++ b/hbut.el
@@ -3144,7 +3144,7 @@ is returned."
(defun ibtype:delete (type)
"Delete an implicit button TYPE (a symbol).
Return TYPE's symbol if it existed, else nil."
- (symtable:delete type symtable:ibtypes)
+ (interactive (list (hui:htype-delete 'ibtypes)))
(htype:delete type 'ibtypes))
;; Return the full Elisp symbol for IBTYPE, which may be a string or symbol.
