Mercurial > emacs
changeset 3767:660b7b4e3e40
(disassemble-internal): If function is autoload, load it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Jun 1993 21:33:18 +0000 |
| parents | d423b5ec9091 |
| children | d3fd7bcefd84 |
| files | lisp/emacs-lisp/disass.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/disass.el Wed Jun 16 21:28:28 1993 +0000 +++ b/lisp/emacs-lisp/disass.el Wed Jun 16 21:33:18 1993 +0000 @@ -79,6 +79,10 @@ 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)))