changeset 4128:cd2afb94d892

* ange-ftp.el: Install the correct regexp in file-name-handler-alist.
author Jim Blandy <jimb@redhat.com>
date Sun, 18 Jul 1993 06:18:03 +0000
parents d253c8a4b7e5
children 6be09b68817f
files lisp/ange-ftp.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Sun Jul 18 06:13:07 1993 +0000
+++ b/lisp/ange-ftp.el	Sun Jul 18 06:18:03 1993 +0000
@@ -856,7 +856,7 @@
 ;;;; 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 @@
 ;;;###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