[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el

[Paul Michael Reilly]

Index: emacs/lisp/net/browse-url.el
diff -c emacs/lisp/net/browse-url.el:1.26 emacs/lisp/net/browse-url.el:1.27
*** emacs/lisp/net/browse-url.el:1.26   Tue Jan 14 17:34:20 2003
--- emacs/lisp/net/browse-url.el        Fri Jan 31 10:20:36 2003
***************
*** 227,233 ****
  
  ;;;###autoload
  (defcustom browse-url-browser-function
!   (if (memq system-type '(windows-nt ms-dos))
        'browse-url-default-windows-browser
      'browse-url-default-browser)
    "*Function to display the current buffer in a WWW browser.
--- 227,233 ----
  
  ;;;###autoload
  (defcustom browse-url-browser-function
!   (if (memq system-type '(windows-nt ms-dos cygwin))
        'browse-url-default-windows-browser
      'browse-url-default-browser)
    "*Function to display the current buffer in a WWW browser.
***************
*** 381,387 ****
      ;; it in anonymous cases.  If it's not anonymous the next regexp
      ;; applies.
      ("^/\\([^:@address@hidden)?\\([^:]+\\):/*" . "ftp://\\1\\2/";)
!     (,@ (if (memq system-type '(windows-nt ms-dos))
            '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
                ("^[\\/][\\/]+" . "file://"))))
      ("^/+" . "file:/")))
--- 381,387 ----
      ;; it in anonymous cases.  If it's not anonymous the next regexp
      ;; applies.
      ("^/\\([^:@address@hidden)?\\([^:]+\\):/*" . "ftp://\\1\\2/";)
!     (,@ (if (memq system-type '(windows-nt ms-dos cygwin))
            '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
                ("^[\\/][\\/]+" . "file://"))))
      ("^/+" . "file:/")))
***************
*** 972,978 ****
  
  When called non-interactively, optional second argument NEW-WINDOW is
  used instead of `browse-url-new-window-flag'."
!   (interactive (browse-url-interactive-arg "URL: "))  
    (apply 'start-process (concat "gnome-moz-remote " url)
         nil
         "gnome-moz-remote"
--- 972,978 ----
  
  When called non-interactively, optional second argument NEW-WINDOW is
  used instead of `browse-url-new-window-flag'."
!   (interactive (browse-url-interactive-arg "URL: "))
    (apply 'start-process (concat "gnome-moz-remote " url)
         nil
         "gnome-moz-remote"