[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog net/browse-url.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog net/browse-url.el |
Date: |
Fri, 20 Nov 2009 21:49:50 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/11/20 21:49:49
Modified files:
lisp : ChangeLog
lisp/net : browse-url.el
Log message:
* net/browse-url.el (browse-url-default-windows-browser): Use
cygstart for cygwin.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16691&r2=1.16692
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/browse-url.el?cvsroot=emacs&r1=1.85&r2=1.86
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16691
retrieving revision 1.16692
diff -u -b -r1.16691 -r1.16692
--- ChangeLog 20 Nov 2009 21:12:55 -0000 1.16691
+++ ChangeLog 20 Nov 2009 21:49:46 -0000 1.16692
@@ -1,3 +1,8 @@
+2009-11-20 Ken Brown <address@hidden> (tiny change)
+
+ * net/browse-url.el (browse-url-default-windows-browser): Use
+ cygstart for cygwin.
+
2009-11-20 Karl Fogel <address@hidden>
* bookmark.el Formatting and doc fixes only:
Index: net/browse-url.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/browse-url.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- net/browse-url.el 6 Nov 2009 05:16:29 -0000 1.85
+++ net/browse-url.el 20 Nov 2009 21:49:49 -0000 1.86
@@ -830,11 +830,13 @@
(defun browse-url-default-windows-browser (url &optional new-window)
(interactive (browse-url-interactive-arg "URL: "))
- (if (eq system-type 'ms-dos)
+ (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"))
- (w32-shell-execute "open" 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: "))
- [Emacs-diffs] emacs/lisp ChangeLog net/browse-url.el,
Chong Yidong <=