# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 925637681 0
# Node ID 5b211965b2b92496587c7ead68434510038032af
# Parent  a2148e59e0eb554483402809c224b97ada39ae6f
(browse-url-browser-function): Default to
browse-url-default-windows-browser on windows-nt.
(browse-url-default-windows-browser): New function.

diff -r a2148e59e0eb -r 5b211965b2b9 lisp/browse-url.el
--- 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 ()