Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 89971:cce1c0ee76ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36 Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Sep 2004 09:36:36 +0000
parents 4c90ffeb71c5 fd1be95301bf
children e24e2e78deda
comparison
equal deleted inserted replaced
89970:a849e5779b8c 89971:cce1c0ee76ee
84 (mapcar (lambda (form) (make-autoload form file)) 84 (mapcar (lambda (form) (make-autoload form file))
85 (cdr expand))))) 85 (cdr expand)))))
86 86
87 ;; For special function-like operators, use the `autoload' function. 87 ;; For special function-like operators, use the `autoload' function.
88 ((memq car '(defun define-skeleton defmacro define-derived-mode 88 ((memq car '(defun define-skeleton defmacro define-derived-mode
89 define-compilation-mode
89 define-generic-mode easy-mmode-define-minor-mode 90 define-generic-mode easy-mmode-define-minor-mode
90 easy-mmode-define-global-mode 91 easy-mmode-define-global-mode
91 define-minor-mode defun* defmacro*)) 92 define-minor-mode defun* defmacro*))
92 (let* ((macrop (memq car '(defmacro defmacro*))) 93 (let* ((macrop (memq car '(defmacro defmacro*)))
93 (name (nth 1 form)) 94 (name (nth 1 form))
94 (args (case car 95 (args (case car
95 ((defun defmacro defun* defmacro*) (nth 2 form)) 96 ((defun defmacro defun* defmacro*) (nth 2 form))
96 ((define-skeleton) '(&optional str arg)) 97 ((define-skeleton) '(&optional str arg))
97 ((define-generic-mode define-derived-mode) nil) 98 ((define-generic-mode define-derived-mode
99 define-compilation-mode) nil)
98 (t))) 100 (t)))
99 (body (nthcdr (get car 'doc-string-elt) form)) 101 (body (nthcdr (get car 'doc-string-elt) form))
100 (doc (if (stringp (car body)) (pop body)))) 102 (doc (if (stringp (car body)) (pop body))))
101 (when (listp args) 103 (when (listp args)
102 ;; Add the usage form at the end where describe-function-1 104 ;; Add the usage form at the end where describe-function-1