Function: ange-ftp-file-name-sans-versions

ange-ftp-file-name-sans-versions is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-file-name-sans-versions FILE KEEP-BACKUP-VERSION)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-file-name-sans-versions (file keep-backup-version)
  (let* ((short (ange-ftp-abbreviate-filename file))
	 (parsed (ange-ftp-ftp-name short))
	 (func (if parsed (cdr (assq (ange-ftp-host-type (car parsed))
                                     ange-ftp-sans-version-alist)))))
    (if func (funcall func file keep-backup-version)
      (ange-ftp-real-file-name-sans-versions file keep-backup-version))))