Browse Source

org-macs: Determine on macro expand which interactive predicate we need.

Signed-off-by: Michael Markert <markert.michael@googlemail.com>
Michael Markert 8 years ago
parent
commit
c5a6d3a974
1 changed files with 4 additions and 4 deletions
  1. 4 4
      lisp/org-macs.el

+ 4 - 4
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)