diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-07-03 12:41:58 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-07-03 12:41:58 +0000 |
| commit | 51a91c091083098a2f347564594ca169175bba0f (patch) | |
| tree | 04f78340401dd775c87745af4f8146e6eda8fb42 /lisp/net/browse-url.el | |
| parent | f1c53471a7eda50ac95f3961f57baadcd514e6e0 (diff) | |
| download | emacs-51a91c091083098a2f347564594ca169175bba0f.tar.gz | |
(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.
Diffstat (limited to 'lisp/net/browse-url.el')
| -rw-r--r-- | lisp/net/browse-url.el | 8 |
1 files changed, 6 insertions, 2 deletions
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 --- |