Commit 51a91c09 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(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.
parent f1c53471
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.
 
......
......@@ -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 ---
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment