[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el

[André Spiegel]

Index: emacs/lisp/vc-hooks.el
diff -c emacs/lisp/vc-hooks.el:1.171 emacs/lisp/vc-hooks.el:1.172
*** emacs/lisp/vc-hooks.el:1.171        Tue Nov 30 11:03:09 2004
--- emacs/lisp/vc-hooks.el      Mon Feb  7 20:38:46 2005
***************
*** 632,639 ****
    (unless (and (fboundp 'msdos-long-file-names)
                 (not (with-no-warnings (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)."
--- 632,646 ----
    (unless (and (fboundp 'msdos-long-file-names)
                 (not (with-no-warnings (msdos-long-file-names))))
      (vc-delete-automatic-version-backups file)
!     (condition-case nil
!         (copy-file file (vc-version-backup-file-name file)
!                    nil 'keep-date)
!       ;; It's ok if it doesn't work (e.g. directory not writable),
!       ;; since this is just for efficiency.
!       (file-error 
!        (message
!         (concat "Warning: Cannot make version backup; "
!                 "diff/revert therefore not local"))))))
  
  (defun vc-before-save ()
    "Function to be called by `basic-save-buffer' (in files.el)."