# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 720756050 0
# Node ID ff23077bae01ee65913064f217f18550b002b75b
# Parent  dd292c7ef749e2aa0f62a7d6dc0ac80bfea715e4
	* ange-ftp.el: Tighten the regular expression used in
	file-name-handler-alist to recognized ange-ftp filenames; the
	slash, username and hostname must be at the start of the filename,
	not just anywhere in the filename.

diff -r dd292c7ef749 -r ff23077bae01 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sun Nov 01 22:10:59 1992 +0000
+++ b/lisp/ange-ftp.el	Tue Nov 03 02:00:50 1992 +0000
@@ -857,7 +857,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.9 $")
+(defconst ange-ftp-version "$Revision: 1.10 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3732,9 +3732,9 @@
 	(apply operation args)))))
 
 ;;;###autoload
-(or (assoc "/[^/:]+:" file-name-handler-alist)
+(or (assoc "^/[^/:]+:" file-name-handler-alist)
     (setq file-name-handler-alist
-	  (cons '("/[^/:]+:" . ange-ftp-hook-function)
+	  (cons '("^/[^/:]+:" . ange-ftp-hook-function)
 		file-name-handler-alist)))
 
 ;;; The above two forms are sufficient to cause this file to be loaded