Mercurial > emacs
changeset 32953:3632d408929e
(vc-make-version-backup): Don't do it on MS-DOS without long file
names.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Fri, 27 Oct 2000 13:26:18 +0000 |
| parents | b63b77317d15 |
| children | f77e6c51dd07 |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Fri Oct 27 12:52:28 2000 +0000 +++ b/lisp/vc-hooks.el Fri Oct 27 13:26:18 2000 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-hooks.el,v 1.124 2000/10/22 15:28:58 spiegel Exp $ +;; $Id: vc-hooks.el,v 1.125 2000/10/27 12:11:55 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -488,9 +488,11 @@ (defun vc-make-version-backup (file) "Make a backup copy of FILE, which is assumed in sync with the repository. Before doing that, check if there are any old backups and get rid of them." - (vc-delete-automatic-version-backups file) - (copy-file file (vc-version-backup-file-name file) - nil 'keep-date)) + (unless (and (fboundp 'msdos-long-file-names) + (not (msdos-long-file-names))) + (vc-delete-automatic-version-backups file) + (copy-file file (vc-version-backup-file-name file) + nil 'keep-date))) (defun vc-before-save () "Function to be called by `basic-save-buffer' (in files.el)."