mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(browse-url-default-windows-browser): Support

Browse Source 
the MS-DOS port when it runs on Windows.
(browse-url-browser-function) [ms-dos]: Default to
browse-url-default-windows-browser.
This commit is contained in:
Eli Zaretskii 2001-07-03 12:41:58 +00:00
parent f1c53471a7
commit 51a91c0910
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

8
lisp/net/browse-url.el
View File

@ -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 ---