Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 67291:cf5b42f7a962

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-autoload): Add define-global-minor-mode.
author Juri Linkov <juri@jurta.org>
date Sun, 04 Dec 2005 02:32:35 +0000
parents 23fa76e60a61
children 067115a6e738 7beb78bc1f8e
comparison
equal deleted inserted replaced
67290:562153259d35 67291:cf5b42f7a962
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-compilation-mode define-generic-mode
90 define-generic-mode easy-mmode-define-minor-mode 90 easy-mmode-define-global-mode define-global-minor-mode
91 easy-mmode-define-global-mode 91 easy-mmode-define-minor-mode define-minor-mode
92 define-minor-mode defun* defmacro*)) 92 defun* defmacro*))
93 (let* ((macrop (memq car '(defmacro defmacro*))) 93 (let* ((macrop (memq car '(defmacro defmacro*)))
94 (name (nth 1 form)) 94 (name (nth 1 form))
95 (args (case car 95 (args (case car
96 ((defun defmacro defun* defmacro*) (nth 2 form)) 96 ((defun defmacro defun* defmacro*) (nth 2 form))
97 ((define-skeleton) '(&optional str arg)) 97 ((define-skeleton) '(&optional str arg))
107 ;; `define-generic-mode' quotes the name, so take care of that 107 ;; `define-generic-mode' quotes the name, so take care of that
108 (list 'autoload (if (listp name) name (list 'quote name)) file doc 108 (list 'autoload (if (listp name) name (list 'quote name)) file doc
109 (or (and (memq car '(define-skeleton define-derived-mode 109 (or (and (memq car '(define-skeleton define-derived-mode
110 define-generic-mode 110 define-generic-mode
111 easy-mmode-define-global-mode 111 easy-mmode-define-global-mode
112 define-global-minor-mode
112 easy-mmode-define-minor-mode 113 easy-mmode-define-minor-mode
113 define-minor-mode)) t) 114 define-minor-mode)) t)
114 (eq (car-safe (car body)) 'interactive)) 115 (eq (car-safe (car body)) 'interactive))
115 (if macrop (list 'quote 'macro) nil)))) 116 (if macrop (list 'quote 'macro) nil))))
116 117