Mercurial > emacs
comparison lisp/macros.el @ 14398:ad30f677493e
(name-last-kbd-macro): Reject empty cmd name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 28 Jan 1996 03:07:38 +0000 |
| parents | 24189cc67176 |
| children | c23c9712ef5c |
comparison
equal
deleted
inserted
replaced
| 14397:49d961cdc9d6 | 14398:ad30f677493e |
|---|---|
| 43 (and (fboundp symbol) | 43 (and (fboundp symbol) |
| 44 (not (stringp (symbol-function symbol))) | 44 (not (stringp (symbol-function symbol))) |
| 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 |
| 51 (defun insert-kbd-macro (macroname &optional keys) | 53 (defun insert-kbd-macro (macroname &optional keys) |
| 52 "Insert in buffer the definition of kbd macro NAME, as Lisp code. | 54 "Insert in buffer the definition of kbd macro NAME, as Lisp code. |