(browse-url-at-mouse): Don't pass an arg to browse-url-at-point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2efbdd9bbc3e0ac690604a1deb47aec4de4fa43..4da45bb425c990d1cefda966b3ed8187357bfbb2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-07-06  Richard M. Stallman  <rms@gnu.org>
 
+       * net/browse-url.el (browse-url-at-mouse): Don't pass an arg
+       to browse-url-at-point.
+
        * simple.el (shell-command): Match & only at end of whole command.
 
 2002-07-03  Dave Love  <fx@gnu.org>

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index cebdb2fdcdac9f3f3bec6a93a9a5ff383c944718..62886c7bad3e428a3a3769d3eafc3f7153ba8d15 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -661,7 +661,9 @@ to use."
   (interactive "e")
   (save-excursion
     (mouse-set-point event)
-    (browse-url-at-point browse-url-new-window-flag)))
+    ;; This handles browse-url-new-window-flag properly
+    ;; when it gets no arg.
+    (browse-url-at-point)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Browser-specific commands