mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Exit macro definition on undefined keys

Browse Source 
* lisp/subr.el (undefined): Error out of kmacro definition, if any.
(Bug#28008)

Copyright-paperwork-exempt: yes
This commit is contained in:
Allen Li 2017-09-30 16:46:48 +03:00 committed by Eli Zaretskii
parent 289fe6c0d1
commit f172894595
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/subr.el
View File

@ -785,8 +785,9 @@ This is the same format used for saving keyboard macros (see
"Beep to tell the user this binding is undefined."
(interactive)
(ding)
(message "%s is undefined" (key-description (this-single-command-keys)))
(setq defining-kbd-macro nil)
(if defining-kbd-macro
(error "%s is undefined" (key-description (this-single-command-keys)))
(message "%s is undefined" (key-description (this-single-command-keys))))
(force-mode-line-update)
;; If this is a down-mouse event, don't reset prefix-arg;
;; pass it to the command run by the up event.