Mercurial > emacs
changeset 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 | 47fccd30153d |
| children | ef7892af4fa7 |
| files | lisp/ChangeLog lisp/net/browse-url.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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