diff options
| author | Jim Blandy | 1992-11-07 06:10:53 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-11-07 06:10:53 +0000 |
| commit | 448933608477ddfb8158097cfc6dca62ad8d7b88 (patch) | |
| tree | 6155dfb634cc3d73f4c3c040144834e728edd13b | |
| parent | 45c18993b7f4958b2e6b3ae3895786264b05c8f4 (diff) | |
| download | emacs-448933608477ddfb8158097cfc6dca62ad8d7b88.tar.gz emacs-448933608477ddfb8158097cfc6dca62ad8d7b88.zip | |
* autoload.el (make-autoload): When creating an autoload
invocation for a macro, pass (list 'quote 'macro) as the sixth
argument, not just t. autoload's sixth argument is now a type
instead of just a boolean value, so we should use a value which
reflects that.
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 17dbfd7c7b5..117e8355f67 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -39,7 +39,8 @@ Returns nil if FORM is not a defun or defmacro." | |||
| 39 | (setq form (cdr form)) | 39 | (setq form (cdr form)) |
| 40 | (setq doc nil)) | 40 | (setq doc nil)) |
| 41 | (list 'autoload (list 'quote name) file doc | 41 | (list 'autoload (list 'quote name) file doc |
| 42 | (eq (car-safe (car form)) 'interactive) macrop)) | 42 | (eq (car-safe (car form)) 'interactive) |
| 43 | (if macrop (list 'quote 'macro) nil))) | ||
| 43 | nil))) | 44 | nil))) |
| 44 | 45 | ||
| 45 | (defconst generate-autoload-cookie ";;;###autoload" | 46 | (defconst generate-autoload-cookie ";;;###autoload" |