Prefer IceCat to Firefox and Iceweasel.

* lisp/net/browse-url.el (browse-url-firefox-program): Prefer IceCat, doc.
(browse-url-firefox-arguments)
(browse-url-firefox-startup-arguments): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9570badea09d054d086d1a97f9347294e5082ec..be3a763ab25b48b3ba70b94ab56ea0d641ef5d01 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-03-22  Richard Stallman  <rms@gnu.org>
+
+       * net/browse-url.el (browse-url-firefox-program): Prefer IceCat, doc.
+       (browse-url-firefox-arguments)
+       (browse-url-firefox-startup-arguments): Doc fix.
+
 2015-02-01  Joakim Verona  <joakim@verona.se>
        Support for the new Xwidget feature.
        * xwidget.el:

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 57c7b61fc284dd8eb9d9608857de800b28948f26..e21a4c201f2e57d478111cadab52630d74f9974d 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -317,21 +317,21 @@ Defaults to the value of `browse-url-mozilla-arguments' at the time
   :group 'browse-url)
 
 (defcustom browse-url-firefox-program
-  (let ((candidates '("firefox" "iceweasel" "icecat")))
+  (let ((candidates '("icecat" "iceweasel" "firefox")))
     (while (and candidates (not (executable-find (car candidates))))
       (setq candidates (cdr candidates)))
     (or (car candidates) "firefox"))
-  "The name by which to invoke Firefox."
+  "The name by which to invoke Firefox or a variant of it."
   :type 'string
   :group 'browse-url)
 
 (defcustom browse-url-firefox-arguments nil
-  "A list of strings to pass to Firefox as arguments."
+  "A list of strings to pass to Firefox (or variant) as arguments."
   :type '(repeat (string :tag "Argument"))
   :group 'browse-url)
 
 (defcustom browse-url-firefox-startup-arguments browse-url-firefox-arguments
-  "A list of strings to pass to Firefox when it starts up.
+  "A list of strings to pass to Firefox (or variant) when it starts up.
 Defaults to the value of `browse-url-firefox-arguments' at the time
 `browse-url' is loaded."
   :type '(repeat (string :tag "Argument"))