From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 8 Apr 1996 15:36:48 +0000 (+0000)
Subject: (disassemble-internal): Graceful error if compile failed.
X-Git-Tag: emacs-19.34~900
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c757fb07fd819cd51623543cb1889a480a2b5d85;p=emacs.git

(disassemble-internal): Graceful error if compile failed.
---

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index d405db4200e..4199728888e 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -104,8 +104,9 @@ redefine OBJECT if it is a symbol."
 	   (setq obj (cdr obj))		;throw lambda away
 	   (setq args (car obj))	;save arg list
 	   (setq obj (cdr obj)))
-	  (t
-	   (setq args (aref obj 0))))
+	  ((byte-code-function-p obj)
+	   (setq args (aref obj 0)))
+          (t (error "Compilation failed")))
     (if (zerop indent) ; not a nested function
 	(progn
 	  (indent-to indent)