mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

Do interactive mode tagging in edmacro.el

Browse Source 
* lisp/edmacro.el (edmacro-finish-edit, edmacro-insert-key):
Add interactive mode tag for edmacro-mode.
This commit is contained in:
Stefan Kangas 2022-06-22 12:14:06 +02:00
parent ec9228eb81
commit f3c78c6ea7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/edmacro.el
View File

@ -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) " ")))