Mercurial > emacs
changeset 7747:40d992ff4662
(ange-ftp-insert-directory): Expand file name to
check whether it is really an ftp file name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 May 1994 10:08:53 +0000 |
| parents | abd7e801de63 |
| children | 9a9c8372af80 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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