Index: browse-url.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/browse-url.el,v
retrieving revision 1.85
diff -c -r1.85 browse-url.el
*** browse-url.el	6 Nov 2009 05:16:29 -0000	1.85
--- browse-url.el	18 Nov 2009 01:27:21 -0000
***************
*** 444,450 ****
      ;; applies.
      ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/")
      ,@(if (memq system-type '(windows-nt ms-dos cygwin))
!           '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
              ("^[\\/][\\/]+" . "file://")))
      ("^/+" . "file:///"))
    "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
--- 444,450 ----
      ;; applies.
      ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/")
      ,@(if (memq system-type '(windows-nt ms-dos cygwin))
!           '(("^\\([a-zA-Z]:\\)[\\/]" . "file:///\\1/")
              ("^[\\/][\\/]+" . "file://")))
      ("^/+" . "file:///"))
    "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
***************
*** 834,840 ****
        (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)))
  
  (defun browse-url-default-macosx-browser (url &optional new-window)
    (interactive (browse-url-interactive-arg "URL: "))
--- 834,840 ----
        (if dos-windows-version
  	  (shell-command (concat "start " (shell-quote-argument url)))
  	(error "Browsing URLs is not supported on this system"))
!     (w32-shell-execute nil url)))
  
  (defun browse-url-default-macosx-browser (url &optional new-window)
    (interactive (browse-url-interactive-arg "URL: "))