Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 42700:9650e8ccfd24
(make-autoload): Handle define-ibuffer-column, define-ibuffer-filter,
define-ibuffer-sorter, and define-ibuffer-op.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sun, 13 Jan 2002 05:41:27 +0000 |
| parents | 0343ccd72be1 |
| children | 7da18198e410 |
comparison
equal
deleted
inserted
replaced
| 42699:1da0dfa86ab5 | 42700:9650e8ccfd24 |
|---|---|
| 70 or macro definition or a defcustom)." | 70 or macro definition or a defcustom)." |
| 71 (let ((car (car-safe form)) expand) | 71 (let ((car (car-safe form)) expand) |
| 72 (cond | 72 (cond |
| 73 ;; For complex cases, try again on the macro-expansion. | 73 ;; For complex cases, try again on the macro-expansion. |
| 74 ((and (memq car '(easy-mmode-define-global-mode | 74 ((and (memq car '(easy-mmode-define-global-mode |
| 75 define-ibuffer-column define-ibuffer-filter | |
| 76 define-ibuffer-sorter | |
| 77 define-ibuffer-op | |
| 75 easy-mmode-define-minor-mode define-minor-mode)) | 78 easy-mmode-define-minor-mode define-minor-mode)) |
| 76 (setq expand (let ((load-file-name file)) (macroexpand form))) | 79 (setq expand (let ((load-file-name file)) (macroexpand form))) |
| 77 (eq (car expand) 'progn) | 80 (eq (car expand) 'progn) |
| 78 (memq :autoload-end expand)) | 81 (memq :autoload-end expand)) |
| 79 (let ((end (memq :autoload-end expand))) | 82 (let ((end (memq :autoload-end expand))) |