Mercurial > emacs
comparison lisp/ange-ftp.el @ 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 | 3c30de5e4f1d |
| children | 5eff8af4eebd |
comparison
equal
deleted
inserted
replaced
| 23051:18ed8d6b11e5 | 23052:39b3f4c74b93 |
|---|---|
| 4281 | 4281 |
| 4282 (defvar ange-ftp-sans-version-alist nil | 4282 (defvar ange-ftp-sans-version-alist nil |
| 4283 "Alist of mapping host type into function to remove file version numbers.") | 4283 "Alist of mapping host type into function to remove file version numbers.") |
| 4284 | 4284 |
| 4285 (defun ange-ftp-file-name-sans-versions (file keep-backup-version) | 4285 (defun ange-ftp-file-name-sans-versions (file keep-backup-version) |
| 4286 (setq file (ange-ftp-abbreviate-filename file)) | 4286 (let* ((short (ange-ftp-abbreviate-filename file)) |
| 4287 (let ((parsed (ange-ftp-ftp-name file)) | 4287 (parsed (ange-ftp-ftp-name short)) |
| 4288 host-type func) | 4288 host-type func) |
| 4289 (if parsed | 4289 (if parsed |
| 4290 (setq host-type (ange-ftp-host-type (car parsed)) | 4290 (setq host-type (ange-ftp-host-type (car parsed)) |
| 4291 func (cdr (assq (ange-ftp-host-type (car parsed)) | 4291 func (cdr (assq (ange-ftp-host-type (car parsed)) |
| 4292 ange-ftp-sans-version-alist)))) | 4292 ange-ftp-sans-version-alist)))) |
| 4293 (if func (funcall func file keep-backup-version) | 4293 (if func (funcall func file keep-backup-version) |