mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

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