diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-30 10:08:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-30 10:08:53 +0000 |
| commit | ad3c3e01aa9ee2ee92e7dc11b464d09211d147f1 (patch) | |
| tree | d37a974141b5ffcb7c5bd7b7597fba539c1bc723 /lisp/ange-ftp.el | |
| parent | 89a06fe28495c59156e728e070ab2a736a080184 (diff) | |
| download | emacs-ad3c3e01aa9ee2ee92e7dc11b464d09211d147f1.tar.gz | |
(ange-ftp-insert-directory): Expand file name to
check whether it is really an ftp file name.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 23ed923064a..174279ed52e 100644 --- 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 |