Mercurial > emacs
changeset 29418:a6cd51379a76
(make-autoload): let* typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 05 Jun 2000 06:33:44 +0000 |
| parents | 6b062917309c |
| children | b82691dc560e |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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