From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 27 Sep 1993 01:36:27 +0000 (+0000)
Subject: (disassemble-internal): Allow a call to byte-code as argument.
X-Git-Tag: emacs-19.34~11062
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8dff74b7f67583444230734a9f775d8f6d3b8f65;p=emacs.git

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

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)