(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 e1259af34792b33cf36b72400eef4935c8650e68..aa4ef387e14c7ccec7cb007a8ebb276db99d4a9d 100644 (file)
--- 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 5419ed63686a15da01c12b04b573c86217f0c783..3b516c266923d2ee47075d71db1b76c49c7847f5 100644 (file)
--- 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 ---