diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-11-04 10:15:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-11-04 10:15:37 +0000 |
| commit | 4482953721153260ba42adcb5f0c0ad9406c0dd7 (patch) | |
| tree | 32c1fb10e4f8cea6e5e54a13ee936715b6ff4cf2 /lisp/net | |
| parent | 327bce2df824d5e52a895c5f234f143d5b2e6690 (diff) | |
| download | emacs-4482953721153260ba42adcb5f0c0ad9406c0dd7.tar.gz | |
(browse-url-maybe-new-window): Use called-interactively-p.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/browse-url.el | 7 |
1 files 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)) |