From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 22 Jun 2022 10:14:06 +0000 (+0200)
Subject: Do interactive mode tagging in edmacro.el
X-Git-Tag: emacs-29.0.90~1447^2~1539
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3c78c6ea7045734fa5e524d683d6cf6435b90bb;p=emacs.git

Do interactive mode tagging in edmacro.el

* lisp/edmacro.el (edmacro-finish-edit, edmacro-insert-key):
Add interactive mode tag for edmacro-mode.
---

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 2f5a8c137e4..bdc50c5885a 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -255,7 +255,7 @@ or nil, use a compact 80-column format."
 ;;; Commands for *Edit Macro* buffer.
 
 (defun edmacro-finish-edit ()
-  (interactive)
+  (interactive nil edmacro-mode)
   (unless (eq major-mode 'edmacro-mode)
     (error
      "This command is valid only in buffers created by `edit-kbd-macro'"))
@@ -366,7 +366,7 @@ or nil, use a compact 80-column format."
 
 (defun edmacro-insert-key (key)
   "Insert the written name of a KEY in the buffer."
-  (interactive "kKey to insert: ")
+  (interactive "kKey to insert: " edmacro-mode)
   (if (bolp)
       (insert (edmacro-format-keys key t) "\n")
     (insert (edmacro-format-keys key) " ")))