From e6c8ce384d7e848367a900681f10a13fffea882b Mon Sep 17 00:00:00 2001 From: Michael Markert Date: Thu, 30 Jun 2011 00:25:09 +0200 Subject: [PATCH] org-macs: Determine on macro expand which interactive predicate we need. Signed-off-by: Michael Markert --- 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) -- 1.7.5.4