mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
cygstart for cygwin.
This commit is contained in:
Chong Yidong 2009-11-20 21:49:46 +00:00
parent 5c3ef352f1
commit e572025ff1
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/net/browse-url.el
View file

@ -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: "))