aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1992-11-07 06:10:53 +0000
committerJim Blandy1992-11-07 06:10:53 +0000
commit448933608477ddfb8158097cfc6dca62ad8d7b88 (patch)
tree6155dfb634cc3d73f4c3c040144834e728edd13b
parent45c18993b7f4958b2e6b3ae3895786264b05c8f4 (diff)
downloademacs-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.el3
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"