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

case where the file is relative.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59da393636abc2573e52c6bd587b8eca004345b6..91a736122469a0bc0b824f928be394f8fd3ee38e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 5e6eba772cda20497d9142a2952912ce68aafbe5..5083c1eed4e0569e2e653ed6259b78ff2a0b9f44 100644 (file)
--- 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.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)))