[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el
From: |
André Spiegel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el |
Date: |
Mon, 07 Feb 2005 15:38:47 -0500 |
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)."
- [Emacs-diffs] Changes to emacs/lisp/vc-hooks.el,
André Spiegel <=