Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 41811:0343ccd72be1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-autoload): Also generate autoloads for `defmacro*' forms.
author Colin Walters <walters@gnu.org>
date Tue, 04 Dec 2001 07:09:26 +0000
parents c8f0d7b4bb40
children 9650e8ccfd24
comparison
equal deleted inserted replaced
41810:753f0d7fee84 41811:0343ccd72be1
85 85
86 ;; For special function-like operators, use the `autoload' function. 86 ;; For special function-like operators, use the `autoload' function.
87 ((memq car '(defun define-skeleton defmacro define-derived-mode 87 ((memq car '(defun define-skeleton defmacro define-derived-mode
88 define-generic-mode easy-mmode-define-minor-mode 88 define-generic-mode easy-mmode-define-minor-mode
89 easy-mmode-define-global-mode 89 easy-mmode-define-global-mode
90 define-minor-mode defun*)) 90 define-minor-mode defun* defmacro*))
91 (let* ((macrop (eq car 'defmacro)) 91 (let* ((macrop (memq car '(defmacro defmacro*)))
92 (name (nth 1 form)) 92 (name (nth 1 form))
93 (body (nthcdr (get car 'doc-string-elt) form)) 93 (body (nthcdr (get car 'doc-string-elt) form))
94 (doc (if (stringp (car body)) (pop body)))) 94 (doc (if (stringp (car body)) (pop body))))
95 ;; `define-generic-mode' quotes the name, so take care of that 95 ;; `define-generic-mode' quotes the name, so take care of that
96 (list 'autoload (if (listp name) name (list 'quote name)) file doc 96 (list 'autoload (if (listp name) name (list 'quote name)) file doc