diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-08 15:36:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-08 15:36:48 +0000 |
| commit | 27fca666314e71f77e112fd4daa33ccd27edb768 (patch) | |
| tree | 55094ac306a22ad8e4d87664f9d87146150c0a72 | |
| parent | 516db9801633350eb638bbcb71a635fee5cfae74 (diff) | |
| download | emacs-27fca666314e71f77e112fd4daa33ccd27edb768.tar.gz | |
(disassemble-internal): Graceful error if compile failed.
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 5 |
1 files 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) |