bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[patch] CVS 21.1 browse-url.el Handle dos paths


From: Jari Aalto+mail.emacs
Subject: [patch] CVS 21.1 browse-url.el Handle dos paths
Date: Sat, 12 Jan 2002 15:23:58 +0200

2002-01-12 Sat  Jari Aalto  <address@hidden>

        * net/browse-url.el (browse-url-filename-alist): 
        Added support for dos style paths a:/path/file =>
        file:///

--- browse-url.el.1.17  Sat Jan 12 15:17:56 2002
+++ browse-url.el       Sat Jan 12 15:19:24 2002
@@ -372,7 +372,9 @@
     (,@ (if (memq system-type '(windows-nt ms-dos))
            '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
               ("^[\\/][\\/]+" . "file://"))))
-    ("^/+" . "file:/")))
+    ("^/+" . "file:/")
+    ;; Change dos paths as well
+    ("^\\([a-zA-Z]\\):" . "file:///\\1:")))
   "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
 Any substring of a filename matching one of the REGEXPs is replaced by
 the corresponding STRING using `replace-match', not treating STRING
@@ -940,7 +942,7 @@
 
 When called non-interactively, optional second argument NEW-WINDOW is
 used instead of `browse-url-new-window-flag'."
-  (interactive (browse-url-interactive-arg "URL: "))  
+  (interactive (browse-url-interactive-arg "URL: "))
   (apply 'start-process (concat "gnome-moz-remote " url)
         nil
         "gnome-moz-remote"






reply via email to

[Prev in Thread] Current Thread [Next in Thread]