Mercurial > emacs
comparison lisp/net/browse-url.el @ 108162:3eb0fffdd08f
* net/browse-url.el (browse-url-firefox-program): Use iceweasel if
firefox is absent. Don't autoload.
(browse-url-galeon-program): Don't autoload.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 29 Apr 2010 10:04:33 -0400 |
| parents | 3c0cd76e49ff |
| children | 17256ad564e9 |
comparison
equal
deleted
inserted
replaced
| 108161:514ebf69b289 | 108162:3eb0fffdd08f |
|---|---|
| 311 Defaults to the value of `browse-url-mozilla-arguments' at the time | 311 Defaults to the value of `browse-url-mozilla-arguments' at the time |
| 312 `browse-url' is loaded." | 312 `browse-url' is loaded." |
| 313 :type '(repeat (string :tag "Argument")) | 313 :type '(repeat (string :tag "Argument")) |
| 314 :group 'browse-url) | 314 :group 'browse-url) |
| 315 | 315 |
| 316 ;;;###autoload | 316 (defcustom browse-url-firefox-program |
| 317 (defcustom browse-url-firefox-program (purecopy "firefox") | 317 (let ((candidates '("firefox" "iceweasel"))) |
| 318 (while (and candidates (not (executable-find (car candidates)))) | |
| 319 (setq candidates (cdr candidates))) | |
| 320 (or (car candidates) "firefox")) | |
| 318 "The name by which to invoke Firefox." | 321 "The name by which to invoke Firefox." |
| 319 :type 'string | 322 :type 'string |
| 320 :group 'browse-url) | 323 :group 'browse-url) |
| 321 | 324 |
| 322 (defcustom browse-url-firefox-arguments nil | 325 (defcustom browse-url-firefox-arguments nil |
| 329 Defaults to the value of `browse-url-firefox-arguments' at the time | 332 Defaults to the value of `browse-url-firefox-arguments' at the time |
| 330 `browse-url' is loaded." | 333 `browse-url' is loaded." |
| 331 :type '(repeat (string :tag "Argument")) | 334 :type '(repeat (string :tag "Argument")) |
| 332 :group 'browse-url) | 335 :group 'browse-url) |
| 333 | 336 |
| 334 ;;;###autoload | 337 (defcustom browse-url-galeon-program "galeon" |
| 335 (defcustom browse-url-galeon-program (purecopy "galeon") | |
| 336 "The name by which to invoke Galeon." | 338 "The name by which to invoke Galeon." |
| 337 :type 'string | 339 :type 'string |
| 338 :group 'browse-url) | 340 :group 'browse-url) |
| 339 | 341 |
| 340 (defcustom browse-url-galeon-arguments nil | 342 (defcustom browse-url-galeon-arguments nil |