From 2de9d0c3be3d4e02d57ae96ae5bfe40cd4f45767 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Nov 2004 10:15:37 +0000 Subject: [PATCH] (browse-url-maybe-new-window): Use called-interactively-p. --- lisp/net/browse-url.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 1dbd97f0073..c5a2218e36e 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -596,10 +596,11 @@ for use in `interactive'." (not (eq (null browse-url-new-window-flag) (null current-prefix-arg))))) -;; interactive-p needs to be called at a function's top-level, hence -;; the macro. +;; called-interactive-p needs to be called at a function's top-level, hence +;; this macro. We use that rather than interactive-p because +;; use in a keyboard macro should not change this behavior. (defmacro browse-url-maybe-new-window (arg) - `(if (not (interactive-p)) + `(if (or noninteractive (not (called-interactively-p))) ,arg browse-url-new-window-flag)) -- 2.39.5