mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 11:33:09 -08:00
Code Issues Projects Releases Wiki Activity

(ange-ftp-file-name-sans-versions): Don't return

Browse source 
the shortened version of the file name.
This commit is contained in:
Richard M. Stallman 1998-08-18 04:49:15 +00:00
parent 3844ee4450
commit 85b5a02546
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ange-ftp.el
View file

@ -4283,9 +4283,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
"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))