Index: lisp/net/browse-url.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/browse-url.el,v
retrieving revision 1.53
diff -c -r1.53 browse-url.el
*** lisp/net/browse-url.el 6 Feb 2006 11:33:04 -0000 1.53
--- lisp/net/browse-url.el 16 Feb 2006 23:38:42 -0000
***************
*** 458,464 ****
;; 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'.
--- 458,464 ----
;; 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'.
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel