Mercurial > emacs
changeset 106176:64f03bed7d67
* net/browse-url.el (browse-url-default-windows-browser): Use
cygstart for cygwin.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 20 Nov 2009 21:49:46 +0000 |
| parents | d4ca58110155 |
| children | cb523092ddfd |
| files | lisp/ChangeLog lisp/net/browse-url.el |
| diffstat | 2 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Nov 20 21:46:28 2009 +0000 +++ b/lisp/ChangeLog Fri Nov 20 21:49:46 2009 +0000 @@ -1,3 +1,8 @@ +2009-11-20 Ken Brown <kbrown@cornell.edu> (tiny change) + + * net/browse-url.el (browse-url-default-windows-browser): Use + cygstart for cygwin. + 2009-11-20 Karl Fogel <karl.fogel@red-bean.com> * bookmark.el Formatting and doc fixes only:
--- a/lisp/net/browse-url.el Fri Nov 20 21:46:28 2009 +0000 +++ b/lisp/net/browse-url.el Fri Nov 20 21:49:46 2009 +0000 @@ -830,11 +830,13 @@ (defun browse-url-default-windows-browser (url &optional new-window) (interactive (browse-url-interactive-arg "URL: ")) - (if (eq system-type 'ms-dos) - (if dos-windows-version - (shell-command (concat "start " (shell-quote-argument url))) - (error "Browsing URLs is not supported on this system")) - (w32-shell-execute "open" url))) + (cond ((eq system-type 'ms-dos) + (if dos-windows-version + (shell-command (concat "start " (shell-quote-argument url))) + (error "Browsing URLs is not supported on this system"))) + ((eq system-type 'cygwin) + (shell-command (concat "cygstart " (shell-quote-argument url)))) + (t (w32-shell-execute "open" url)))) (defun browse-url-default-macosx-browser (url &optional new-window) (interactive (browse-url-interactive-arg "URL: "))