Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 61177:64c207ce6c20
(make-autoload): Handle define-global-minor-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 31 Mar 2005 21:17:40 +0000 |
| parents | 847ceead54c3 |
| children | 1220f6122b90 7a3341d65a12 |
comparison
equal
deleted
inserted
replaced
| 61176:b5c1a67a6467 | 61177:64c207ce6c20 |
|---|---|
| 70 Returns nil if FORM is not a special autoload form (i.e. a function definition | 70 Returns nil if FORM is not a special autoload form (i.e. a function definition |
| 71 or macro definition or a defcustom)." | 71 or macro definition or a defcustom)." |
| 72 (let ((car (car-safe form)) expand) | 72 (let ((car (car-safe form)) expand) |
| 73 (cond | 73 (cond |
| 74 ;; For complex cases, try again on the macro-expansion. | 74 ;; For complex cases, try again on the macro-expansion. |
| 75 ((and (memq car '(easy-mmode-define-global-mode | 75 ((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode |
| 76 easy-mmode-define-minor-mode define-minor-mode)) | 76 easy-mmode-define-minor-mode define-minor-mode)) |
| 77 (setq expand (let ((load-file-name file)) (macroexpand form))) | 77 (setq expand (let ((load-file-name file)) (macroexpand form))) |
| 78 (eq (car expand) 'progn) | 78 (eq (car expand) 'progn) |
| 79 (memq :autoload-end expand)) | 79 (memq :autoload-end expand)) |
| 80 (let ((end (memq :autoload-end expand))) | 80 (let ((end (memq :autoload-end expand))) |