--- origsrc/lisp/net/browse-url.el 2009-11-20 11:34:25.000000000 -0500 +++ src/lisp/net/browse-url.el 2009-11-20 11:35:28.000000000 -0500 @@ -693,7 +693,9 @@ (cond ((not (buffer-modified-p))) (browse-url-save-file (save-buffer)) (t (message "%s modified since last save" file)))))) - (browse-url (browse-url-file-url file)) + (if (eq system-type 'cygwin) + (shell-command (concat "cygstart " (shell-quote-argument file))) + (browse-url (browse-url-file-url file))) (run-hooks 'browse-url-of-file-hook)) (defun browse-url-file-url (file) @@ -830,11 +832,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: "))