(disassemble-internal): Allow a call to byte-code as argument.

[gnu-emacs] / lisp / emacs-lisp / disass.el

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 82933bd5d935cc46937f8fc4269833faa626761e..abf1eb9c129b5d211ff0de2517feeaec37363f07 100644 (file)
--- 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)