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

* autoload.el (make-autoload): When creating an autoload

Browse Source 
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.
This commit is contained in:
Jim Blandy 1992-11-07 06:10:53 +00:00
parent 45c18993b7
commit 4489336084
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/autoload.el
View File

@ -39,7 +39,8 @@ Returns nil if FORM is not a defun or defmacro."
(setq form (cdr form))
(setq doc nil))
(list 'autoload (list 'quote name) file doc
(eq (car-safe (car form)) 'interactive) macrop))
(eq (car-safe (car form)) 'interactive)
(if macrop (list 'quote 'macro) nil)))
nil)))
(defconst generate-autoload-cookie ";;;###autoload"