From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 15 Apr 2009 22:51:26 +0000 (+0000)
Subject: * net/browse-url.el (browse-url-filename-alist): Correct file
X-Git-Tag: emacs-pretest-23.0.93~123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dee8ac108452e32efb8c4542f4509c69c0e27d45;p=emacs.git

* net/browse-url.el (browse-url-filename-alist): Correct file
URI (Bug#2922).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88d37ed22a0..9b5e6cd6176 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* net/browse-url.el (browse-url-filename-alist): Correct file
+	URI (Bug#2922).
+
 2009-04-15  Chong Yidong  <cyd@stupidchicken.com>
 
 	* subr.el (posn-col-row): Properly compute line spacing.
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 82711a5b0ba..8be8e00583a 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -446,7 +446,7 @@ commands reverses the effect of this variable.  Requires Netscape version
     ,@(if (memq system-type '(windows-nt ms-dos cygwin))
           '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
             ("^[\\/][\\/]+" . "file://")))
-    ("^/+" . "file:/"))
+    ("^/+" . "file:///"))
   "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