diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-11-19 15:57:20 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-11-19 15:57:20 +0000 |
| commit | f0f98146d29521374a6f348b43b7907baad0b7a1 (patch) | |
| tree | 0315f37304c6b22cc8d9e8e7a4eb86731e9145a4 /lisp/net | |
| parent | 6c72c0c7d6cf03b9079a0768fa64879b97dd53bd (diff) | |
| download | emacs-f0f98146d29521374a6f348b43b7907baad0b7a1.tar.gz | |
(browse-url-default-browser): Signal an error if no usable browser can
be found, rather than try to load w3.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/browse-url.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 54fddf9261c..8d57bb30c11 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -864,7 +864,9 @@ xterm, MMM, and then W3." ((executable-find "tellw3b") 'browse-url-iximosaic) ((executable-find browse-url-xterm-program) 'browse-url-lynx-xterm) ((executable-find "mmm") 'browse-url-mmm) - (t 'browse-url-w3)) + ((locate-library "w3") 'browse-url-w3) + (t + (lambda (&ignore args) (error "No usable browser found")))) url args)) ;;;###autoload |