Mercurial > emacs

diff lisp/net/browse-url.el @ 105372:bd2966850aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `called-interactively-p' instead of `interactive-p'.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 02 Oct 2009 03:48:36 +0000
parents 0769a73f1d18
children 1e211a362b04
line wrap: on
line diff
--- a/lisp/net/browse-url.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/net/browse-url.el	Fri Oct 02 03:48:36 2009 +0000
@@ -770,7 +770,7 @@
 Prompts for a URL, defaulting to the URL at or before point.  Variable
 `browse-url-browser-function' says which browser to use."
   (interactive (browse-url-interactive-arg "URL: "))
-  (unless (interactive-p)
+  (unless (called-interactively-p 'interactive)
     (setq args (or args (list browse-url-new-window-flag))))
   (let ((process-environment (copy-sequence process-environment)))
     ;; When connected to various displays, be careful to use the display of