# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 994164051 0
# Node ID bb01ee99b910a750b0e477b3e73a04ff2f2fe8d6
# Parent  c466cc20f4359c593115c584e4005e75d7d54ecd
(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 -r c466cc20f435 -r bb01ee99b910 lisp/net/browse-url.el
--- a/lisp/net/browse-url.el	Tue Jul 03 12:39:17 2001 +0000
+++ b/lisp/net/browse-url.el	Tue Jul 03 12:40:51 2001 +0000
@@ -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 @@
 
 (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 ---