Commit 85b5a025 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

the shortened version of the file name.
parent 3844ee44
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment