From c757fb07fd819cd51623543cb1889a480a2b5d85 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 Apr 1996 15:36:48 +0000 Subject: [PATCH] (disassemble-internal): Graceful error if compile failed. --- lisp/emacs-lisp/disass.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.2