mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
case where the file is relative.
This commit is contained in:
Stefan Monnier 2001-09-24 16:37:10 +00:00
parent 49cef826cf
commit 79e954d0ac
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-09-24 Stefan Monnier <monnier@cs.yale.edu>
* vc-hooks.el (vc-delete-automatic-version-backups): Handle the
case where the file is relative.
2001-09-24 Gerd Moellmann <gerd@gnu.org>
* xml.el (xml-parse-attlist): Quotes around attributes must be the

4
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.132 2001/07/11 22:05:01 monnier Exp $
;; $Id: vc-hooks.el,v 1.133 2001/09/22 20:09:40 monnier Exp $
;; This file is part of GNU Emacs.
@ -485,7 +485,7 @@ a regexp for matching all such backup files, regardless of the version."
(condition-case nil
(mapcar
'delete-file
(directory-files (file-name-directory file) t
(directory-files (or (file-name-directory file) default-directory) t
(vc-version-backup-file-name file nil nil t)))
;; Don't fail when the directory doesn't exist.
(file-error nil)))