mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-04-08 15:36:48 +00:00
parent 299585eeb6
commit c757fb07fd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/disass.el
View File

@ -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)