From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 3 Jul 2001 12:41:58 +0000 (+0000)
Subject: (browse-url-default-windows-browser): Support
X-Git-Tag: emacs-pretest-21.0.104~86
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51a91c091083098a2f347564594ca169175bba0f;p=emacs.git

(browse-url-default-windows-browser): Support
the MS-DOS port when it runs on Windows.
(browse-url-browser-function) [ms-dos]: Default to
browse-url-default-windows-browser.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1259af3479..aa4ef387e14 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2001-07-03  Eli Zaretskii  <eliz@is.elta.co.il>
 
+	* net/browse-url.el (browse-url-default-windows-browser): Support
+	the MS-DOS port when it runs on Windows.
+	(browse-url-browser-function) [ms-dos]: Default to
+	browse-url-default-windows-browser.
+
 	* help.el (locate-library): Enable code that looks for compressed
 	libraries if auto-compression-mode is on.
 
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 5419ed63686..3b516c26692 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -236,7 +236,7 @@
 
 ;;;###autoload
 (defcustom browse-url-browser-function
-  (if (eq system-type 'windows-nt)
+  (if (memq system-type '(windows-nt ms-dos))
       'browse-url-default-windows-browser
     'browse-url-netscape)
   "*Function to display the current buffer in a WWW browser.
@@ -670,7 +670,11 @@ to use."
 
 (defun browse-url-default-windows-browser (url &optional new-window)
   (interactive (browse-url-interactive-arg "URL: "))
-  (w32-shell-execute "open" 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)))
 
 ;; --- Netscape ---