# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 960186824 0
# Node ID a6cd51379a76b550c2301271ff8b75407812982e
# Parent  6b062917309c839c5c2f4bcfc1348c1c882125f6
(make-autoload): let* typo.

diff -r 6b062917309c -r a6cd51379a76 lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Mon Jun 05 06:30:48 2000 +0000
+++ b/lisp/emacs-lisp/autoload.el	Mon Jun 05 06:33:44 2000 +0000
@@ -67,10 +67,10 @@
     (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