mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 11:20:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
check whether it is really an ftp file name.
This commit is contained in:
Richard M. Stallman 1994-05-30 10:08:53 +00:00
parent 1e6083840c
commit a2702d990e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ange-ftp.el
View file

@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables. ;;;; Internal variables.
;;;; ------------------------------------------------------------ ;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.51 $") (defconst ange-ftp-version "$Revision: 1.52 $")
(defvar ange-ftp-data-buffer-name " *ftp data*" (defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.") "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) (defun ange-ftp-insert-directory (file switches &optional wildcard full)
(let ((short (ange-ftp-abbreviate-filename file)) (let ((short (ange-ftp-abbreviate-filename file))
(parsed (ange-ftp-ftp-name file))) (parsed (ange-ftp-ftp-name (expand-file-name file))))
(if parsed (if parsed
(insert (insert
(if wildcard (if wildcard