diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-16 21:33:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-16 21:33:18 +0000 |
| commit | a33cb02164a86f7a8f750c5254c209f38731c6b3 (patch) | |
| tree | bedf1e08ff4481bd248fd4300c77f5b2b4ee20c7 /lisp/emacs-lisp | |
| parent | 74da500751595c23c5f4858a226eac86f38e4ea7 (diff) | |
| download | emacs-a33cb02164a86f7a8f750c5254c209f38731c6b3.tar.gz emacs-a33cb02164a86f7a8f750c5254c209f38731c6b3.tar.bz2 emacs-a33cb02164a86f7a8f750c5254c209f38731c6b3.zip | |
(disassemble-internal): If function is autoload, load it.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index b60ba5a2385..82933bd5d93 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el @@ -79,6 +79,10 @@ redefine OBJECT if it is a symbol." obj (symbol-function obj))) (if (subrp obj) (error "Can't disassemble #<subr %s>" name)) + (if (and (listp obj) (eq (car obj) 'autoload)) + (progn + (load (nth 1 obj)) + (setq obj (symbol-function name)))) (if (eq (car-safe obj) 'macro) ;handle macros (setq macro t obj (cdr obj))) |