From e572025ff11352705a5145cf77cdf6227f36d4b4 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 20 Nov 2009 21:49:46 +0000 Subject: [PATCH] * net/browse-url.el (browse-url-default-windows-browser): Use cygstart for cygwin. --- lisp/ChangeLog | 5 +++++ lisp/net/browse-url.el | 12 +++++++----- 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 (tiny change) + + * net/browse-url.el (browse-url-default-windows-browser): Use + cygstart for cygwin. + 2009-11-20 Karl Fogel * 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: ")) -- 2.39.5