Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 51012:a7817088fe0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 4972b38db032
children 695cf19ef79e
comparison
equal deleted inserted replaced
51011:0818587f2beb 51012:a7817088fe0d
1 ;; autoload.el --- maintain autoloads in loaddefs.el 1 ;; autoload.el --- maintain autoloads in loaddefs.el
2 2
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2003
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Roland McGrath <roland@gnu.org> 6 ;; Author: Roland McGrath <roland@gnu.org>
7 ;; Keywords: maint 7 ;; Keywords: maint
8 8
32 32
33 ;;; Code: 33 ;;; Code:
34 34
35 (require 'lisp-mode) ;for `doc-string-elt' properties. 35 (require 'lisp-mode) ;for `doc-string-elt' properties.
36 (require 'help-fns) ;for help-add-fundoc-usage. 36 (require 'help-fns) ;for help-add-fundoc-usage.
37 (eval-when-compile (require 'cl))
37 38
38 (defvar generated-autoload-file "loaddefs.el" 39 (defvar generated-autoload-file "loaddefs.el"
39 "*File \\[update-file-autoloads] puts autoloads into. 40 "*File \\[update-file-autoloads] puts autoloads into.
40 A `.el' file can set this in its local variables section to make its 41 A `.el' file can set this in its local variables section to make its
41 autoloads go somewhere else. The autoload file is assumed to contain a 42 autoloads go somewhere else. The autoload file is assumed to contain a
88 define-generic-mode easy-mmode-define-minor-mode 89 define-generic-mode easy-mmode-define-minor-mode
89 easy-mmode-define-global-mode 90 easy-mmode-define-global-mode
90 define-minor-mode defun* defmacro*)) 91 define-minor-mode defun* defmacro*))
91 (let* ((macrop (memq car '(defmacro defmacro*))) 92 (let* ((macrop (memq car '(defmacro defmacro*)))
92 (name (nth 1 form)) 93 (name (nth 1 form))
93 (args (if (memq car '(defun defmacro defun* defmacro*)) 94 (args (case car
94 (nth 2 form) t)) 95 ((defun defmacro defun* defmacro*) (nth 2 form))
96 ((define-skeleton) '(&optional str arg))
97 ((define-generic-mode define-derived-mode) nil)
98 (t)))
95 (body (nthcdr (get car 'doc-string-elt) form)) 99 (body (nthcdr (get car 'doc-string-elt) form))
96 (doc (if (stringp (car body)) (pop body)))) 100 (doc (if (stringp (car body)) (pop body))))
97 (when (listp args) 101 (when (listp args)
98 ;; Add the usage form at the end where describe-function-1 102 ;; Add the usage form at the end where describe-function-1
99 ;; can recover it. 103 ;; can recover it.