Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 29419:b82691dc560e
(make-autoload): Other typo. I'm getting tired.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 05 Jun 2000 06:37:11 +0000 |
| parents | a6cd51379a76 |
| children | eafd45bcdcc1 |
comparison
equal
deleted
inserted
replaced
| 29418:a6cd51379a76 | 29419:b82691dc560e |
|---|---|
| 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 |
| 79 define-minor-mode)) t) | 79 define-minor-mode)) t) |
| 80 (eq (car-safe (car form)) 'interactive)) | 80 (eq (car-safe (car body)) 'interactive)) |
| 81 (if macrop (list 'quote 'macro) nil))) | 81 (if macrop (list 'quote 'macro) nil))) |
| 82 ;; Convert defcustom to a simpler (and less space-consuming) defvar, | 82 ;; Convert defcustom to a simpler (and less space-consuming) defvar, |
| 83 ;; but add some extra stuff if it uses :require. | 83 ;; but add some extra stuff if it uses :require. |
| 84 (if (eq car 'defcustom) | 84 (if (eq car 'defcustom) |
| 85 (let ((varname (car-safe (cdr-safe form))) | 85 (let ((varname (car-safe (cdr-safe form))) |