Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 25534:297c943363ed
(make-autoload): Handle defun* like defun.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 03 Sep 1999 23:57:31 +0000 |
| parents | cbe304a26771 |
| children | 88324520c7fc |
comparison
equal
deleted
inserted
replaced
| 25533:121060238dc8 | 25534:297c943363ed |
|---|---|
| 65 Returns nil if FORM is not a `defun', `define-skeleton', | 65 Returns nil if FORM is not a `defun', `define-skeleton', |
| 66 `define-derived-mode', `define-generic-mode', `defmacro', `defcustom' | 66 `define-derived-mode', `define-generic-mode', `defmacro', `defcustom' |
| 67 or `easy-mmode-define-minor-mode'." | 67 or `easy-mmode-define-minor-mode'." |
| 68 (let ((car (car-safe form))) | 68 (let ((car (car-safe form))) |
| 69 (if (memq car '(defun define-skeleton defmacro define-derived-mode | 69 (if (memq car '(defun define-skeleton defmacro define-derived-mode |
| 70 define-generic-mode easy-mmode-define-minor-mode)) | 70 define-generic-mode easy-mmode-define-minor-mode |
| 71 defun*)) | |
| 71 (let ((macrop (eq car 'defmacro)) | 72 (let ((macrop (eq car 'defmacro)) |
| 72 name doc) | 73 name doc) |
| 73 (setq form (cdr form) | 74 (setq form (cdr form) |
| 74 name (car form) | 75 name (car form) |
| 75 ;; Ignore the arguments. | 76 ;; Ignore the arguments. |