Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 75640:a70527c58a3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(global-cwarn-mode): Add define-globalized-minor-mode.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 03 Feb 2007 17:25:17 +0000
parents 7a3f13e2dd57
children 935157c0b596 ffabac9ec014 52a7f3f50b89
comparison
equal deleted inserted replaced
75639:e499a9252500 75640:a70527c58a3f
71 or macro definition or a defcustom)." 71 or macro definition or a defcustom)."
72 (let ((car (car-safe form)) expand) 72 (let ((car (car-safe form)) expand)
73 (cond 73 (cond
74 ;; For complex cases, try again on the macro-expansion. 74 ;; For complex cases, try again on the macro-expansion.
75 ((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode 75 ((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode
76 define-globalized-minor-mode
76 easy-mmode-define-minor-mode define-minor-mode)) 77 easy-mmode-define-minor-mode define-minor-mode))
77 (setq expand (let ((load-file-name file)) (macroexpand form))) 78 (setq expand (let ((load-file-name file)) (macroexpand form)))
78 (eq (car expand) 'progn) 79 (eq (car expand) 'progn)
79 (memq :autoload-end expand)) 80 (memq :autoload-end expand))
80 (let ((end (memq :autoload-end expand))) 81 (let ((end (memq :autoload-end expand)))
86 87
87 ;; For special function-like operators, use the `autoload' function. 88 ;; For special function-like operators, use the `autoload' function.
88 ((memq car '(defun define-skeleton defmacro define-derived-mode 89 ((memq car '(defun define-skeleton defmacro define-derived-mode
89 define-compilation-mode define-generic-mode 90 define-compilation-mode define-generic-mode
90 easy-mmode-define-global-mode define-global-minor-mode 91 easy-mmode-define-global-mode define-global-minor-mode
92 define-globalized-minor-mode
91 easy-mmode-define-minor-mode define-minor-mode 93 easy-mmode-define-minor-mode define-minor-mode
92 defun* defmacro*)) 94 defun* defmacro*))
93 (let* ((macrop (memq car '(defmacro defmacro*))) 95 (let* ((macrop (memq car '(defmacro defmacro*)))
94 (name (nth 1 form)) 96 (name (nth 1 form))
95 (args (case car 97 (args (case car
108 (list 'autoload (if (listp name) name (list 'quote name)) file doc 110 (list 'autoload (if (listp name) name (list 'quote name)) file doc
109 (or (and (memq car '(define-skeleton define-derived-mode 111 (or (and (memq car '(define-skeleton define-derived-mode
110 define-generic-mode 112 define-generic-mode
111 easy-mmode-define-global-mode 113 easy-mmode-define-global-mode
112 define-global-minor-mode 114 define-global-minor-mode
115 define-globalized-minor-mode
113 easy-mmode-define-minor-mode 116 easy-mmode-define-minor-mode
114 define-minor-mode)) t) 117 define-minor-mode)) t)
115 (eq (car-safe (car body)) 'interactive)) 118 (eq (car-safe (car body)) 'interactive))
116 (if macrop (list 'quote 'macro) nil)))) 119 (if macrop (list 'quote 'macro) nil))))
117 120