# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1258753786 0
# Node ID 64f03bed7d670ee7d1f4a9cb235fb838825b1ed8
# Parent  d4ca5811015530607dfce86253ecd7ca269a11ab
* net/browse-url.el (browse-url-default-windows-browser): Use
cygstart for cygwin.

diff -r d4ca58110155 -r 64f03bed7d67 lisp/ChangeLog
--- 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:
diff -r d4ca58110155 -r 64f03bed7d67 lisp/net/browse-url.el
--- 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: "))