From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 5 Jun 2000 06:33:44 +0000 (+0000)
Subject: (make-autoload): let* typo.
X-Git-Tag: emacs-pretest-21.0.90~3524
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e971339e72dd925f45a93eb166e56f13ccb16362;p=emacs.git

(make-autoload): let* typo.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 8fabdb6e14a..b9edcdb8ffd 100644
--- 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