mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2004-11-04 10:15:37 +00:00
parent 3fc1b26475
commit 2de9d0c3be
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/net/browse-url.el
View File

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