diff options
| author | Richard M. Stallman | 1999-09-03 23:57:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-09-03 23:57:31 +0000 |
| commit | 74a28ee2a8a12b0d456a834e6ebfd8bca54beebd (patch) | |
| tree | 3e598de6a25a4319085318d0b473e477f093e357 | |
| parent | aaaecdf3ead00fd305a42183db43aeca9a2937f6 (diff) | |
| download | emacs-74a28ee2a8a12b0d456a834e6ebfd8bca54beebd.tar.gz emacs-74a28ee2a8a12b0d456a834e6ebfd8bca54beebd.zip | |
(make-autoload): Handle defun* like defun.
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 2c1ceae86c2..7454068fbc4 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -67,7 +67,8 @@ Returns nil if FORM is not a `defun', `define-skeleton', | |||
| 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) |