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