* net/browse-url.el (browse-url-default-windows-browser): Use

cygstart for cygwin.

2 files changed, 12 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dab502c6bb8..ba2f222cf8f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 20311f6d4ce..ddfaa91d953 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -830,11 +830,13 @@ to use."
 
 (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: "))