Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 90136:7a3341d65a12
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-33
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 223-227)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 02 Apr 2005 22:40:25 +0000 |
| parents | cb67264d6096 64c207ce6c20 |
| children | bb71c6cf2009 |
comparison
equal
deleted
inserted
replaced
| 90135:baa2d4aa0064 | 90136:7a3341d65a12 |
|---|---|
| 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))) |