(browse-url-browser-function): Use it.

2 files changed, 17 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de909a4ff3c..0d473fa2554 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,11 +1,18 @@
+2000-10-07  Dave Love  <fx@gnu.org>
+
+        * net/browse-url.el (browse-url-gnome-moz-arguments): New option.
+        (browse-url-gnome-moz): New function.
+        (browse-url-browser-function): Use it.
+        Suggested by Colin Walters <walters@cis.ohio-state.edu>.
+
 2000-10-07  Peter Breton  <pbreton@ne.mediaone.net>
 
-        * net/net-utils.el (nslookup-font-lock-keywords, ftp-font-lock-keywords,
-        smbclient-font-lock-keywords): Do not require font-lock.
-        Doc cleanups throughout (incorporate changes by Dave Love).
+        * net/net-utils.el (nslookup-font-lock-keywords)
+        (ftp-font-lock-keywords, smbclient-font-lock-keywords): Do not
+        require font-lock.  Doc cleanups throughout (incorporate changes
+        by Dave Love).
         (network-connection-mode-setup): Comment out network-abbrev-table
-        variable.
-        Incorporate doc cleanups throughout.
+        variable.  Incorporate doc cleanups throughout.
         
 2000-10-07  Stefan Monnier  <monnier@cs.yale.edu>
 
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index ac3d43e2a84..3cc5512da76 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -47,6 +47,7 @@
 ;; browse-url-mmm                     MMM         ?
 ;; browse-url-generic                 arbitrary
 ;; browse-url-default-windows-browser MS-Windows browser
+;; browse-url-gnome-moz               GNOME interface to Mozilla
 
 ;; [A version of the Netscape browser is now free software
 ;; <URL:http://www.mozilla.org/>, albeit not GPLed, so it is
@@ -262,7 +263,9 @@ regexp should probably be \".\" to specify a default browser."
           (function-item :tag "Specified by `Browse Url Generic Program'"
                          :value browse-url-generic)
           (function-item :tag "Default Windows browser"
-                         :value  browse-url-default-windows-browser)
+                         :value browse-url-default-windows-browser)
+          (function-item :tag "GNOME invoking Mozilla"
+                         :value browse-url-gnome-moz)
           (function :tag "Your own function")
           (alist :tag "Regexp/function association list"
                  :key-type regexp :value-type function))
@@ -750,6 +753,7 @@ How depends on `browse-url-netscape-version'."
   :type '(repeat (string :tag "Argument"))
   :group 'browse-url)
 
+;;;###autoload
 (defun browse-url-gnome-moz (url &optional new-window)
   "Ask Mozilla/Netscape to load URL via the GNOME program `gnome-moz-remote'.
 Default to the URL around or before point.  The strings in variable