Commit 32324290 authored by Chong Yidong's avatar Chong Yidong

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

parent b6a856a6
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment