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 |