[elpa] externals/hyperbole 588eb7b61a 3/6: ibtype:delete and actype:delete - Make interactive with completion

[ELPA Syncer]

branch: externals/hyperbole
commit 588eb7b61a24ba818eab500f13699950b0b5e6f2
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@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  <rsw@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.