mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(make-autoload): Add arglist for define-derived-mode.

Browse Source
This commit is contained in:
Stefan Monnier 2003-05-15 15:24:24 +00:00
parent 23db85ff00
commit 6826a1342e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emacs-lisp/autoload.el
View File

@ -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 @@ or macro definition or a defcustom)."
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)