Mercurial > emacs
changeset 51012:a7817088fe0d
(make-autoload): Add arglist for define-derived-mode.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 15 May 2003 15:24:24 +0000 |
| parents | 0818587f2beb |
| children | db5c6e7f697f |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Thu May 15 13:22:15 2003 +0000 +++ b/lisp/emacs-lisp/autoload.el Thu May 15 15:24:24 2003 +0000 @@ -1,6 +1,6 @@ ;; autoload.el --- maintain autoloads in loaddefs.el -;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 +;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2003 ;; Free Software Foundation, Inc. ;; Author: Roland McGrath <roland@gnu.org> @@ -34,6 +34,7 @@ (require 'lisp-mode) ;for `doc-string-elt' properties. (require 'help-fns) ;for help-add-fundoc-usage. +(eval-when-compile (require 'cl)) (defvar generated-autoload-file "loaddefs.el" "*File \\[update-file-autoloads] puts autoloads into. @@ -90,8 +91,11 @@ define-minor-mode defun* defmacro*)) (let* ((macrop (memq car '(defmacro defmacro*))) (name (nth 1 form)) - (args (if (memq car '(defun defmacro defun* defmacro*)) - (nth 2 form) t)) + (args (case car + ((defun defmacro defun* defmacro*) (nth 2 form)) + ((define-skeleton) '(&optional str arg)) + ((define-generic-mode define-derived-mode) nil) + (t))) (body (nthcdr (get car 'doc-string-elt) form)) (doc (if (stringp (car body)) (pop body)))) (when (listp args)