Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 56995:fd1be95301bf
(make-autoload): Handle `define-compilation-mode'.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Wed, 08 Sep 2004 11:06:23 +0000 |
| parents | 12f4731fd3aa |
| children | 52307ec50b54 cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
| 56994:1075a63c2426 | 56995:fd1be95301bf |
|---|---|
| 84 (mapcar (lambda (form) (make-autoload form file)) | 84 (mapcar (lambda (form) (make-autoload form file)) |
| 85 (cdr expand))))) | 85 (cdr expand))))) |
| 86 | 86 |
| 87 ;; For special function-like operators, use the `autoload' function. | 87 ;; For special function-like operators, use the `autoload' function. |
| 88 ((memq car '(defun define-skeleton defmacro define-derived-mode | 88 ((memq car '(defun define-skeleton defmacro define-derived-mode |
| 89 define-compilation-mode | |
| 89 define-generic-mode easy-mmode-define-minor-mode | 90 define-generic-mode easy-mmode-define-minor-mode |
| 90 easy-mmode-define-global-mode | 91 easy-mmode-define-global-mode |
| 91 define-minor-mode defun* defmacro*)) | 92 define-minor-mode defun* defmacro*)) |
| 92 (let* ((macrop (memq car '(defmacro defmacro*))) | 93 (let* ((macrop (memq car '(defmacro defmacro*))) |
| 93 (name (nth 1 form)) | 94 (name (nth 1 form)) |
| 94 (args (case car | 95 (args (case car |
| 95 ((defun defmacro defun* defmacro*) (nth 2 form)) | 96 ((defun defmacro defun* defmacro*) (nth 2 form)) |
| 96 ((define-skeleton) '(&optional str arg)) | 97 ((define-skeleton) '(&optional str arg)) |
| 97 ((define-generic-mode define-derived-mode) nil) | 98 ((define-generic-mode define-derived-mode |
| 99 define-compilation-mode) nil) | |
| 98 (t))) | 100 (t))) |
| 99 (body (nthcdr (get car 'doc-string-elt) form)) | 101 (body (nthcdr (get car 'doc-string-elt) form)) |
| 100 (doc (if (stringp (car body)) (pop body)))) | 102 (doc (if (stringp (car body)) (pop body)))) |
| 101 (when (listp args) | 103 (when (listp args) |
| 102 ;; Add the usage form at the end where describe-function-1 | 104 ;; Add the usage form at the end where describe-function-1 |