procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefer IceCat to Firefox and Iceweasel.

Browse source 
* lisp/net/browse-url.el (browse-url-firefox-program): Prefer IceCat, doc.
(browse-url-firefox-arguments)
(browse-url-firefox-startup-arguments): Doc fix.
This commit is contained in:
Richard M. Stallman 2015-03-22 03:39:21 -04:00 • committed by Richard Stallman
parent f1cea3e96c
commit 414e79feeb
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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> 2015-02-01 Joakim Verona <joakim@verona.se>
Support for the new Xwidget feature. Support for the new Xwidget feature.
* xwidget.el: * xwidget.el:

8
lisp/net/browse-url.el
View file

@ -317,21 +317,21 @@ Defaults to the value of `browse-url-mozilla-arguments' at the time
:group 'browse-url) :group 'browse-url)
(defcustom browse-url-firefox-program (defcustom browse-url-firefox-program
(let ((candidates '("firefox" "iceweasel" "icecat"))) (let ((candidates '("icecat" "iceweasel" "firefox")))
(while (and candidates (not (executable-find (car candidates)))) (while (and candidates (not (executable-find (car candidates))))
(setq candidates (cdr candidates))) (setq candidates (cdr candidates)))
(or (car candidates) "firefox")) (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 :type 'string
:group 'browse-url) :group 'browse-url)
(defcustom browse-url-firefox-arguments nil (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")) :type '(repeat (string :tag "Argument"))
:group 'browse-url) :group 'browse-url)
(defcustom browse-url-firefox-startup-arguments browse-url-firefox-arguments (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 Defaults to the value of `browse-url-firefox-arguments' at the time
`browse-url' is loaded." `browse-url' is loaded."
:type '(repeat (string :tag "Argument")) :type '(repeat (string :tag "Argument"))