diff options
author | Michael Markert <markert.michael@googlemail.com> | 2011-06-30 00:25:09 +0200 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-06-29 16:22:43 -0700 |
commit | c5a6d3a974c31c5ee903ee4f34829ba482f933c5 (patch) | |
tree | da82e6683892ff85a7190e420befdd7f4661be18 | |
parent | 2b7dbee193c2846035dce373b786392d109f30b3 (diff) | |
download | org-mode-c5a6d3a974c31c5ee903ee4f34829ba482f933c5.tar.gz |
org-macs: Determine on macro expand which interactive predicate we need.
Signed-off-by: Michael Markert <markert.michael@googlemail.com>
-rw-r--r-- | lisp/org-macs.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 27e1d88..731642d 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -48,13 +48,13 @@ (declare-function org-string-match-p "org-compat" (&rest args)) (defmacro org-called-interactively-p (&optional kind) - `(if (featurep 'xemacs) - (interactive-p) + (if (featurep 'xemacs) + `(interactive-p) (if (or (> emacs-major-version 23) (and (>= emacs-major-version 23) (>= emacs-minor-version 2))) - (with-no-warnings (called-interactively-p ,kind)) ;; defined with no argument in <=23.1 - (interactive-p)))) + `(with-no-warnings (called-interactively-p ,kind)) ;; defined with no argument in <=23.1 + `(interactive-p)))) (if (and (not (fboundp 'with-silent-modifications)) (or (< emacs-major-version 23) |