Mercurial > emacs
changeset 23052:39b3f4c74b93
(ange-ftp-file-name-sans-versions): Don't return
the shortened version of the file name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Aug 1998 04:49:15 +0000 |
| parents | 18ed8d6b11e5 |
| children | 09d1521f9984 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Tue Aug 18 04:27:37 1998 +0000 +++ b/lisp/ange-ftp.el Tue Aug 18 04:49:15 1998 +0000 @@ -4283,9 +4283,9 @@ "Alist of mapping host type into function to remove file version numbers.") (defun ange-ftp-file-name-sans-versions (file keep-backup-version) - (setq file (ange-ftp-abbreviate-filename file)) - (let ((parsed (ange-ftp-ftp-name file)) - host-type func) + (let* ((short (ange-ftp-abbreviate-filename file)) + (parsed (ange-ftp-ftp-name short)) + host-type func) (if parsed (setq host-type (ange-ftp-host-type (car parsed)) func (cdr (assq (ange-ftp-host-type (car parsed))