72 |
(let ((car (car-safe form)) expand) |
(let ((car (car-safe form)) expand) |
73 |
(cond |
(cond |
74 |
;; For complex cases, try again on the macro-expansion. |
;; For complex cases, try again on the macro-expansion. |
75 |
((and (memq car '(easy-mmode-define-global-mode |
((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode |
76 |
easy-mmode-define-minor-mode define-minor-mode)) |
easy-mmode-define-minor-mode define-minor-mode)) |
77 |
(setq expand (let ((load-file-name file)) (macroexpand form))) |
(setq expand (let ((load-file-name file)) (macroexpand form))) |
78 |
(eq (car expand) 'progn) |
(eq (car expand) 'progn) |