Mercurial > emacs

changeset 39417:c13780d8dbd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-delete-automatic-version-backups): Handle the case where the file is relative.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 24 Sep 2001 16:36:14 +0000
parents 7b970afcfb82
children 3b6034741247
files lisp/vc-hooks.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Mon Sep 24 13:17:53 2001 +0000
+++ b/lisp/vc-hooks.el	Mon Sep 24 16:36:14 2001 +0000
@@ -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 @@
   (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)))