589 |
"Make a backup copy of FILE, which is assumed in sync with the repository. |
"Make a backup copy of FILE, which is assumed in sync with the repository. |
590 |
Before doing that, check if there are any old backups and get rid of them." |
Before doing that, check if there are any old backups and get rid of them." |
591 |
(unless (and (fboundp 'msdos-long-file-names) |
(unless (and (fboundp 'msdos-long-file-names) |
592 |
(not (with-no-warnings msdos-long-file-names))) |
(not (with-no-warnings (msdos-long-file-names)))) |
593 |
(vc-delete-automatic-version-backups file) |
(vc-delete-automatic-version-backups file) |
594 |
(copy-file file (vc-version-backup-file-name file) |
(copy-file file (vc-version-backup-file-name file) |
595 |
nil 'keep-date))) |
nil 'keep-date))) |