(make-autoload): let* typo.

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 8fabdb6e14a4c72eb71385999502e7cbe9d8c2b8..b9edcdb8ffdbe35f2212547b66196fd484cd4d0e 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -67,10 +67,10 @@ Returns nil if FORM is not a function or variable or macro definition."
     (if (memq car '(defun define-skeleton defmacro define-derived-mode 
                     define-generic-mode easy-mmode-define-minor-mode
                     define-minor-mode defun*))
-       (let ((macrop (eq car 'defmacro))
-             (name (nth 1 form))
-             (body (nthcdr (get car 'doc-string-elt) form))
-             (doc (if (stringp (car body)) (pop body))))
+       (let* ((macrop (eq car 'defmacro))
+              (name (nth 1 form))
+              (body (nthcdr (get car 'doc-string-elt) form))
+              (doc (if (stringp (car body)) (pop body))))
          ;; `define-generic-mode' quotes the name, so take care of that
          (list 'autoload (if (listp name) name (list 'quote name)) file doc
                (or (and (memq car '(define-skeleton define-derived-mode