diff lisp/emacs-lisp/autoload.el @ 29418:a6cd51379a76

(make-autoload): let* typo.

--- 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