diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-09-27 01:36:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-09-27 01:36:27 +0000 |
| commit | 8dff74b7f67583444230734a9f775d8f6d3b8f65 (patch) | |
| tree | bb5d188d2414140eb5c79d960f55bfaccc0f2c7f /lisp/emacs-lisp | |
| parent | d89a4a47bf29765ca11e82695d1896a87b62abee (diff) | |
| download | emacs-8dff74b7f67583444230734a9f775d8f6d3b8f65.tar.gz | |
(disassemble-internal): Allow a call to byte-code as argument.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index 82933bd5d93..abf1eb9c129 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el @@ -86,6 +86,8 @@ redefine OBJECT if it is a symbol." (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) |