mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(vc-delete-automatic-version-backups):

Browse Source 
Don't fail if the directory doesn't exist.
This commit is contained in:
Stefan Monnier 2001-09-22 20:09:56 +00:00
parent eb407e67eb
commit d455f4f7a9
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2001-09-22 Stefan Monnier <monnier@cs.yale.edu>
* vc-hooks.el (vc-delete-automatic-version-backups):
Don't fail if the directory doesn't exist.
* diff-mode.el (diff-default-read-only): New var.
(diff-mode): Use it.

14
lisp/vc-hooks.el
View File

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-hooks.el,v 1.131 2000/11/24 16:25:59 spiegel Exp $
;; $Id: vc-hooks.el,v 1.132 2001/07/11 22:05:01 monnier Exp $
;; This file is part of GNU Emacs.
@ -482,11 +482,13 @@ a regexp for matching all such backup files, regardless of the version."
(defun vc-delete-automatic-version-backups (file)
"Delete all existing automatic version backups for FILE."
(mapcar
(lambda (f)
(delete-file f))
(directory-files (file-name-directory file) t
(vc-version-backup-file-name file nil nil t))))
(condition-case nil
(mapcar
'delete-file
(directory-files (file-name-directory file) t
(vc-version-backup-file-name file nil nil t)))
;; Don't fail when the directory doesn't exist.
(file-error nil)))
(defun vc-make-version-backup (file)
"Make a backup copy of FILE, which is assumed in sync with the repository.