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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/04/15 22:51:28

Modified files:
        lisp           : ChangeLog 
        lisp/net       : browse-url.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15591&r2=1.15592
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/browse-url.el?cvsroot=emacs&r1=1.77&r2=1.78

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15591
retrieving revision 1.15592
diff -u -b -r1.15591 -r1.15592
--- ChangeLog   15 Apr 2009 22:39:51 -0000      1.15591
+++ ChangeLog   15 Apr 2009 22:51:26 -0000      1.15592
@@ -1,3 +1,8 @@
+2009-04-15  Katsumi Yamaoka  <address@hidden>
+
+       * net/browse-url.el (browse-url-filename-alist): Correct file
+       URI (Bug#2922).
+
 2009-04-15  Chong Yidong  <address@hidden>
 
        * subr.el (posn-col-row): Properly compute line spacing.

Index: net/browse-url.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/browse-url.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -b -r1.77 -r1.78
--- net/browse-url.el   5 Jan 2009 03:22:43 -0000       1.77
+++ net/browse-url.el   15 Apr 2009 22:51:28 -0000      1.78
@@ -446,7 +446,7 @@
     ,@(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