diff options
| author | Stefan Monnier | 2000-06-05 06:33:44 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-06-05 06:33:44 +0000 |
| commit | e971339e72dd925f45a93eb166e56f13ccb16362 (patch) | |
| tree | 98d851b0bac95ec244aacffd4210e57fd87b0af2 | |
| parent | a8add29deb4f1a75e718f656927d4663153a4cb4 (diff) | |
| download | emacs-e971339e72dd925f45a93eb166e56f13ccb16362.tar.gz emacs-e971339e72dd925f45a93eb166e56f13ccb16362.zip | |
(make-autoload): let* typo.
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 8 |
1 files changed, 4 insertions, 4 deletions
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." | |||
| 67 | (if (memq car '(defun define-skeleton defmacro define-derived-mode | 67 | (if (memq car '(defun define-skeleton defmacro define-derived-mode |
| 68 | define-generic-mode easy-mmode-define-minor-mode | 68 | define-generic-mode easy-mmode-define-minor-mode |
| 69 | define-minor-mode defun*)) | 69 | define-minor-mode defun*)) |
| 70 | (let ((macrop (eq car 'defmacro)) | 70 | (let* ((macrop (eq car 'defmacro)) |
| 71 | (name (nth 1 form)) | 71 | (name (nth 1 form)) |
| 72 | (body (nthcdr (get car 'doc-string-elt) form)) | 72 | (body (nthcdr (get car 'doc-string-elt) form)) |
| 73 | (doc (if (stringp (car body)) (pop body)))) | 73 | (doc (if (stringp (car body)) (pop body)))) |
| 74 | ;; `define-generic-mode' quotes the name, so take care of that | 74 | ;; `define-generic-mode' quotes the name, so take care of that |
| 75 | (list 'autoload (if (listp name) name (list 'quote name)) file doc | 75 | (list 'autoload (if (listp name) name (list 'quote name)) file doc |
| 76 | (or (and (memq car '(define-skeleton define-derived-mode | 76 | (or (and (memq car '(define-skeleton define-derived-mode |