# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1132415840 0
# Node ID fb42f801f8726219badf39421c02458bdab243ba
# Parent  47fccd30153daee33de58a820851337dc99b3baa
(browse-url-default-browser): Signal an error if no usable browser can
be found, rather than try to load w3.

diff -r 47fccd30153d -r fb42f801f872 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Nov 19 13:19:58 2005 +0000
+++ b/lisp/ChangeLog	Sat Nov 19 15:57:20 2005 +0000
@@ -1,3 +1,8 @@
+2005-11-19  Romain Francoise  <romain@orebokech.com>
+
+	* net/browse-url.el (browse-url-default-browser): Signal an error
+	if no usable browser can be found, rather than try to load w3.
+
 2005-11-16  Ryan Yeske  <rcyeske@gmail.com>
 
 	* net/rcirc.el (rcirc-mangle-text): Add bold face property without
@@ -82,7 +87,7 @@
 	* progmodes/gdb-ui.el (gdb-ann3): ...here.  Make it work in the
 	speedbar.
 	(gdb-find-watch-expression): New function.
-	
+
 2005-11-17  Chong Yidong  <cyd@stupidchicken.com>
 
 	* faces.el (face-attribute, set-face-attribute): Mention existence
diff -r 47fccd30153d -r fb42f801f872 lisp/net/browse-url.el
--- a/lisp/net/browse-url.el	Sat Nov 19 13:19:58 2005 +0000
+++ b/lisp/net/browse-url.el	Sat Nov 19 15:57:20 2005 +0000
@@ -864,7 +864,9 @@
      ((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