[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el

[Richard M . Stallman]

Index: emacs/lisp/net/browse-url.el
diff -c emacs/lisp/net/browse-url.el:1.38 emacs/lisp/net/browse-url.el:1.39
*** emacs/lisp/net/browse-url.el:1.38   Sat May 29 15:34:50 2004
--- emacs/lisp/net/browse-url.el        Thu Nov  4 10:15:37 2004
***************
*** 596,605 ****
        (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.
  (defmacro browse-url-maybe-new-window (arg)
!   `(if (not (interactive-p))
         ,arg
       browse-url-new-window-flag))
  
--- 596,606 ----
        (not (eq (null browse-url-new-window-flag)
                 (null current-prefix-arg)))))
  
! ;; 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 (or noninteractive (not (called-interactively-p)))
         ,arg
       browse-url-new-window-flag))