Commit a2702d99 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

check whether it is really an ftp file name.
parent 1e608384
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment