From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Nov 2004 10:15:37 +0000 (+0000)
Subject: (browse-url-maybe-new-window): Use called-interactively-p.
X-Git-Tag: ttn-vms-21-2-B4~4197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2de9d0c3be3d4e02d57ae96ae5bfe40cd4f45767;p=emacs.git

(browse-url-maybe-new-window): Use called-interactively-p.
---

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