# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897357471 0
# Node ID 13df619ccc574db5b1597e8fd42283138134869a
# Parent  8fbe6f509385830121bae1b08f3337f2c3886725
(ange-ftp-file-name-completion): Use ange-ftp-this-dir instead of
literal "/" when calling real completion function.

diff -r 8fbe6f509385 -r 13df619ccc57 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Tue Jun 09 01:55:49 1998 +0000
+++ b/lisp/ange-ftp.el	Tue Jun 09 01:57:51 1998 +0000
@@ -3821,7 +3821,8 @@
 	   file
 	   (nconc (ange-ftp-generate-root-prefixes)
 		  (mapcar 'list
-			  (ange-ftp-real-file-name-all-completions file "/"))))
+			  (ange-ftp-real-file-name-all-completions
+			   file ange-ftp-this-dir))))
 	(ange-ftp-real-file-name-completion file ange-ftp-this-dir)))))