(ange-ftp-insert-directory): Expand file name to

check whether it is really an ftp file name.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 23ed923064a96bbc636ee090c734824a24820d13..174279ed52e864234c16708335e25dc5ebbac7d0 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number."
 ;;;; 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 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
 
 (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