Skip to content

GitLab

Commit 4dc7458e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(name-last-kbd-macro): Handle macros that are vectors.

parent af7dc6c7
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
lisp/macros.el
View file @ 4dc7458e
...@@ -41,6 +41,7 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command ...@@ -41,6 +41,7 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command
(error "No keyboard macro defined")) (error "No keyboard macro defined"))
(and (fboundp symbol) (and (fboundp symbol)
(not (stringp (symbol-function symbol))) (not (stringp (symbol-function symbol)))
(not (vectorp (symbol-function symbol)))
(error "Function %s is already defined and not a keyboard macro." (error "Function %s is already defined and not a keyboard macro."
symbol)) symbol))
(fset symbol last-kbd-macro)) (fset symbol last-kbd-macro))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment