mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki 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
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) (not (eq (null browse-url-new-window-flag)
(null current-prefix-arg))))) (null current-prefix-arg)))))
;; interactive-p needs to be called at a function's top-level, hence ;; called-interactive-p needs to be called at a function's top-level, hence
;; the macro. ;; 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) (defmacro browse-url-maybe-new-window (arg)
`(if (not (interactive-p)) `(if (or noninteractive (not (called-interactively-p)))
,arg ,arg
browse-url-new-window-flag)) browse-url-new-window-flag))