procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(global-cwarn-mode): Add define-globalized-minor-mode.

Browse source
This commit is contained in:
Chong Yidong 2007-02-03 17:25:17 +00:00
parent b6a856a645
commit 32324290ca
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/autoload.el
View file

@ -73,6 +73,7 @@ or macro definition or a defcustom)."
(cond
;; For complex cases, try again on the macro-expansion.
((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode
define-globalized-minor-mode
easy-mmode-define-minor-mode define-minor-mode))
(setq expand (let ((load-file-name file)) (macroexpand form)))
(eq (car expand) 'progn)
@ -88,6 +89,7 @@ or macro definition or a defcustom)."
((memq car '(defun define-skeleton defmacro define-derived-mode
define-compilation-mode define-generic-mode
easy-mmode-define-global-mode define-global-minor-mode
define-globalized-minor-mode
easy-mmode-define-minor-mode define-minor-mode
defun* defmacro*))
(let* ((macrop (memq car '(defmacro defmacro*)))
@ -110,6 +112,7 @@ or macro definition or a defcustom)."
define-generic-mode
easy-mmode-define-global-mode
define-global-minor-mode
define-globalized-minor-mode
easy-mmode-define-minor-mode
define-minor-mode)) t)
(eq (car-safe (car body)) 'interactive))