Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 42767:7da18198e410
(make-autoload): Don't handle define-ibuffer-column,
define-ibuffer-filter, define-ibuffer-sorter, and define-ibuffer-op.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Jan 2002 02:36:29 +0000 |
| parents | 9650e8ccfd24 |
| children | a0d27828cf39 |
comparison
equal
deleted
inserted
replaced
| 42766:30b26e73fa4f | 42767:7da18198e410 |
|---|---|
| 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 | |
| 78 easy-mmode-define-minor-mode define-minor-mode)) | 75 easy-mmode-define-minor-mode define-minor-mode)) |
| 79 (setq expand (let ((load-file-name file)) (macroexpand form))) | 76 (setq expand (let ((load-file-name file)) (macroexpand form))) |
| 80 (eq (car expand) 'progn) | 77 (eq (car expand) 'progn) |
| 81 (memq :autoload-end expand)) | 78 (memq :autoload-end expand)) |
| 82 (let ((end (memq :autoload-end expand))) | 79 (let ((end (memq :autoload-end expand))) |