diff options
| author | Richard M. Stallman | 1996-01-28 03:07:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-01-28 03:07:38 +0000 |
| commit | a3fc4dee2cb3cc50362d98b8d062e85b974d6001 (patch) | |
| tree | bbe92314ddc4f5ad23bdc453e81a6ee0b384de6b | |
| parent | ef8e50b169b670d29418b521b4623e940c3fa8a5 (diff) | |
| download | emacs-a3fc4dee2cb3cc50362d98b8d062e85b974d6001.tar.gz emacs-a3fc4dee2cb3cc50362d98b8d062e85b974d6001.zip | |
(name-last-kbd-macro): Reject empty cmd name.
| -rw-r--r-- | lisp/macros.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index 5bf6560e5e6..fc79959e9f9 100644 --- a/lisp/macros.el +++ b/lisp/macros.el | |||
| @@ -45,6 +45,8 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command | |||
| 45 | (not (vectorp (symbol-function symbol))) | 45 | (not (vectorp (symbol-function symbol))) |
| 46 | (error "Function %s is already defined and not a keyboard macro." | 46 | (error "Function %s is already defined and not a keyboard macro." |
| 47 | symbol)) | 47 | symbol)) |
| 48 | (if (string-equal symbol "") | ||
| 49 | (error "No command name given")) | ||
| 48 | (fset symbol last-kbd-macro)) | 50 | (fset symbol last-kbd-macro)) |
| 49 | 51 | ||
| 50 | ;;;###autoload | 52 | ;;;###autoload |