Mercurial > emacs
comparison lisp/macros.el @ 4331:c75a5c7d4f39
(name-last-kbd-macro): Handle macros that are vectors.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Jul 1993 03:27:05 +0000 |
| parents | 507f64624555 |
| children | 069c54e77fd1 |
comparison
equal
deleted
inserted
replaced
| 4330:85b1ac7f1caa | 4331:c75a5c7d4f39 |
|---|---|
| 39 (interactive "SName for last kbd macro: ") | 39 (interactive "SName for last kbd macro: ") |
| 40 (or last-kbd-macro | 40 (or last-kbd-macro |
| 41 (error "No keyboard macro defined")) | 41 (error "No keyboard macro defined")) |
| 42 (and (fboundp symbol) | 42 (and (fboundp symbol) |
| 43 (not (stringp (symbol-function symbol))) | 43 (not (stringp (symbol-function symbol))) |
| 44 (not (vectorp (symbol-function symbol))) | |
| 44 (error "Function %s is already defined and not a keyboard macro." | 45 (error "Function %s is already defined and not a keyboard macro." |
| 45 symbol)) | 46 symbol)) |
| 46 (fset symbol last-kbd-macro)) | 47 (fset symbol last-kbd-macro)) |
| 47 | 48 |
| 48 ;;;###autoload | 49 ;;;###autoload |