* files.el (auto-save-file-name-transforms): Put remote files in

[gnu-emacs] / lisp / vc-hooks.el

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 5e6eba772cda20497d9142a2952912ce68aafbe5..8b2eecf4b2633da95fcff8779d4adcd1b729626e 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.134 2001/09/24 16:36:14 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -129,7 +129,7 @@ VC commands are globally reachable under the prefix `\\[vc-prefix-map]':
 \\{vc-prefix-map}")
 
 (defmacro vc-error-occurred (&rest body)
-  (list 'condition-case nil (cons 'progn (append body '(nil))) '(error t)))
+  `(condition-case nil (progn ,@body nil) (error t)))
 
 ;; We need a notion of per-file properties because the version
 ;; control state of a file is expensive to derive --- we compute
@@ -137,7 +137,7 @@ VC commands are globally reachable under the prefix `\\[vc-prefix-map]':
 ;; during any subsequent VC operations, and forget them when
 ;; the buffer is killed.
 
-(defvar vc-file-prop-obarray (make-vector 16 0)
+(defvar vc-file-prop-obarray (make-vector 17 0)
   "Obarray for per-file properties.")
 
 (defvar vc-touched-properties nil)
@@ -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)))