Mercurial > emacs

changeset 38271:bb01ee99b910

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 03 Jul 2001 12:40:51 +0000
parents c466cc20f435
children 8cefa08ce19c
files lisp/net/browse-url.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 ---