Mercurial > emacs
comparison lisp/net/browse-url.el @ 67017:fb42f801f872
(browse-url-default-browser): Signal an error if no usable browser can
be found, rather than try to load w3.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 19 Nov 2005 15:57:20 +0000 |
| parents | 71a815b63b2b |
| children | 067115a6e738 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 67016:47fccd30153d | 67017:fb42f801f872 |
|---|---|
| 862 ((executable-find browse-url-netscape-program) 'browse-url-netscape) | 862 ((executable-find browse-url-netscape-program) 'browse-url-netscape) |
| 863 ((executable-find browse-url-mosaic-program) 'browse-url-mosaic) | 863 ((executable-find browse-url-mosaic-program) 'browse-url-mosaic) |
| 864 ((executable-find "tellw3b") 'browse-url-iximosaic) | 864 ((executable-find "tellw3b") 'browse-url-iximosaic) |
| 865 ((executable-find browse-url-xterm-program) 'browse-url-lynx-xterm) | 865 ((executable-find browse-url-xterm-program) 'browse-url-lynx-xterm) |
| 866 ((executable-find "mmm") 'browse-url-mmm) | 866 ((executable-find "mmm") 'browse-url-mmm) |
| 867 (t 'browse-url-w3)) | 867 ((locate-library "w3") 'browse-url-w3) |
| 868 (t | |
| 869 (lambda (&ignore args) (error "No usable browser found")))) | |
| 868 url args)) | 870 url args)) |
| 869 | 871 |
| 870 ;;;###autoload | 872 ;;;###autoload |
| 871 (defun browse-url-netscape (url &optional new-window) | 873 (defun browse-url-netscape (url &optional new-window) |
| 872 "Ask the Netscape WWW browser to load URL. | 874 "Ask the Netscape WWW browser to load URL. |