Mercurial > emacs
changeset 4789:86318d7728f5
(disassemble-internal): Allow a call to byte-code as argument.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Sep 1993 01:36:27 +0000 |
| parents | 3182c0f7ace4 |
| children | b110036d90b0 |
| files | lisp/emacs-lisp/disass.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/disass.el Mon Sep 27 01:02:43 1993 +0000 +++ b/lisp/emacs-lisp/disass.el Mon Sep 27 01:36:27 1993 +0000 @@ -86,6 +86,8 @@ (if (eq (car-safe obj) 'macro) ;handle macros (setq macro t obj (cdr obj))) + (if (and (listp obj) (eq (car obj) 'byte-code)) + (setq obj (list 'lambda nil obj))) (if (and (listp obj) (not (eq (car obj) 'lambda))) (error "not a function")) (if (consp obj)