Mercurial > emacs
changeset 57934:f6eed72febea
(browse-url-maybe-new-window): Use called-interactively-p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Nov 2004 10:15:37 +0000 |
| parents | 59c9a776a021 |
| children | 93315f35a1d4 |
| files | lisp/net/browse-url.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/browse-url.el Thu Nov 04 10:14:47 2004 +0000 +++ b/lisp/net/browse-url.el Thu Nov 04 10:15:37 2004 +0000 @@ -596,10 +596,11 @@ (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))