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

cygstart for cygwin.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dab502c6bb83629b3908346825bb629f507bf36f..ba2f222cf8f5bd3a3de1de24abfcfb0624eec905 100644 (file)
--- 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 20311f6d4ce32a6db9240d55f7cda716f3ec08ef..ddfaa91d9533b0cfa643a015194cc00fbb1740ad 100644 (file)
--- 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: "))