* ange-ftp.el: Install the correct regexp in

	file-name-handler-alist.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index c7d4ea48a797bf6e07f9a12c8cae512903e40090..29324c3a6a548262f1fffd110289d53eedea46fe 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number."
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.28 $")
+(defconst ange-ftp-version "$Revision: 1.29 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3755,7 +3755,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
 ;;;###autoload
 (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