# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 749093787 0
# Node ID 86318d7728f5a8c5fde3d91dd20b3028d74c8d0f
# Parent  3182c0f7ace44f8d78c722347b2446a6ad5bfd60
(disassemble-internal): Allow a call to byte-code as argument.

diff -r 3182c0f7ace4 -r 86318d7728f5 lisp/emacs-lisp/disass.el
--- 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)