Mercurial > emacs
changeset 24657:5b211965b2b9
(browse-url-browser-function): Default to
browse-url-default-windows-browser on windows-nt.
(browse-url-default-windows-browser): New function.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Sun, 02 May 1999 09:34:41 +0000 |
| parents | a2148e59e0eb |
| children | 7de5cc79a8b4 |
| files | lisp/browse-url.el |
| diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/browse-url.el Sun May 02 09:31:32 1999 +0000 +++ b/lisp/browse-url.el Sun May 02 09:34:41 1999 +0000 @@ -232,7 +232,9 @@ ;;;###autoload (defcustom browse-url-browser-function - 'browse-url-netscape + (if (eq system-type 'windows-nt) + 'browse-url-default-windows-browser + 'browse-url-netscape) "*Function to display the current buffer in a WWW browser. This is used by the `browse-url-at-point', `browse-url-at-mouse', and `browse-url-of-file' commands. @@ -258,6 +260,8 @@ (function-item :tag "MMM" :value browse-url-mmm) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) + (function-item :tag "Default Windows browser" + :value browse-url-default-windows-browser) (function :tag "Your own function")) :group 'browse-url) @@ -654,6 +658,12 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Browser-specific commands +;; --- Default MS-Windows browser --- + +(defun browse-url-default-windows-browser (url &optional new-window) + (interactive (browse-url-interactive-arg "URL: ")) + (w32-shell-execute "open" url)) + ;; --- Netscape --- (defun browse-url-process-environment ()