From: André Spiegel <spiegel@gnu.org>
Date: Fri, 27 Oct 2000 13:26:18 +0000 (+0000)
Subject: (vc-make-version-backup): Don't do it on MS-DOS without long file
X-Git-Tag: emacs-pretest-21.0.90~513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48b15d3f46cce9a5806e1c44c1634257112794fa;p=emacs.git

(vc-make-version-backup): Don't do it on MS-DOS without long file
names.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index e65b1baaa76..d3ac6517187 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -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 @@ a regexp for matching all such backup files, regardless of the version."
 (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)."