# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 740890940 0
# Node ID d04e12f9153ff43d87d9bac657f4ddcbe4ee6870
# Parent  ad75597554280d2f47fd152f48cce86db4bca4ca
	* ange-ftp.el: Loosen file-name-handler-alist regexp so we can do
	host name completion.

diff -r ad7559755428 -r d04e12f9153f lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Thu Jun 24 01:52:49 1993 +0000
+++ b/lisp/ange-ftp.el	Thu Jun 24 03:02:20 1993 +0000
@@ -856,7 +856,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.27 $")
+(defconst ange-ftp-version "$Revision: 1.28 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3748,8 +3748,12 @@
       (let (file-name-handler-alist)
 	(apply operation args)))))
 
+
+;;; This regexp takes care of real ange-ftp file names (with a slash
+;;; and colon), and absolute filenames with only one component, for
+;;; the sake of hostname completion.
 ;;;###autoload
-(or (assoc "^/[^/:]+:" file-name-handler-alist)
+(or (assoc "^/[^/:]*\\([^/:]:\\|\\'\\)" file-name-handler-alist)
     (setq file-name-handler-alist
 	  (cons '("^/[^/:]+:" . ange-ftp-hook-function)
 		file-name-handler-alist)))