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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de909a4ff3c82172c08547ebde8b42f515e35d86..0d473fa2554128c454692b71166e65e20edfd1ea 100644 (file)
--- 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 ac3d43e2a840f9ca8624ff5f2d3784ca924b3b43..3cc5512da764f28e2f531a59770b12a047b4a7c7 100644 (file)
--- 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