# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770292533 0
# Node ID 40d992ff46626b35dacfef5b2104a6374fbc33e0
# Parent  abd7e801de63b558158e0087de69dde8033a8fb0
(ange-ftp-insert-directory): Expand file name to
check whether it is really an ftp file name.

diff -r abd7e801de63 -r 40d992ff4662 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Mon May 30 09:36:20 1994 +0000
+++ b/lisp/ange-ftp.el	Mon May 30 10:08:53 1994 +0000
@@ -851,7 +851,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.51 $")
+(defconst ange-ftp-version "$Revision: 1.52 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3950,7 +3950,7 @@
 
 (defun ange-ftp-insert-directory (file switches &optional wildcard full)
   (let ((short (ange-ftp-abbreviate-filename file))
-	(parsed (ange-ftp-ftp-name file)))
+	(parsed (ange-ftp-ftp-name (expand-file-name file))))
     (if parsed
 	(insert
 	 (if wildcard