Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 29418:a6cd51379a76
(make-autoload): let* typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 05 Jun 2000 06:33:44 +0000 |
| parents | 6d8ceb166666 |
| children | b82691dc560e |
comparison
equal
deleted
inserted
replaced
| 29417:6b062917309c | 29418:a6cd51379a76 |
|---|---|
| 65 Returns nil if FORM is not a function or variable or macro definition." | 65 Returns nil if FORM is not a function or variable or macro definition." |
| 66 (let ((car (car-safe form))) | 66 (let ((car (car-safe form))) |
| 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 |
| 77 define-generic-mode | 77 define-generic-mode |
| 78 easy-mmode-define-minor-mode | 78 easy-mmode-define-minor-mode |