summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Markert <markert.michael@googlemail.com>2011-06-30 00:25:09 +0200
committerEric Schulte <schulte.eric@gmail.com>2011-06-29 16:22:43 -0700
commitc5a6d3a974c31c5ee903ee4f34829ba482f933c5 (patch)
treeda82e6683892ff85a7190e420befdd7f4661be18
parent2b7dbee193c2846035dce373b786392d109f30b3 (diff)
downloadorg-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.el8
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)