# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 724173746 0
# Node ID 75e8a7f920c75db7a646602cad828e84de9865dc
# Parent  975c866af92d8c15ee2845fe1c574592914331b6
	* vc.el (vc-do-command): Set the default directory of the *vc*
	buffer to the directory containing FILE.

diff -r 975c866af92d -r 75e8a7f920c7 lisp/vc.el
--- a/lisp/vc.el	Sat Dec 12 15:22:04 1992 +0000
+++ b/lisp/vc.el	Sat Dec 12 15:22:26 1992 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;	$Id: vc.el,v 1.17 1992/11/20 17:23:45 jimb Exp rms $	
+;;	$Id: vc.el,v 1.18 1992/11/20 19:33:38 rms Exp jimb $	
 
 ;; This file is part of GNU Emacs.
 
@@ -156,6 +156,11 @@
 	status)
     (set-buffer (get-buffer-create "*vc*"))
     (erase-buffer)
+
+    ;; This is so that command arguments typed in the *vc* buffer will
+    ;; have reasonable defaults.
+    (setq default-directory (file-name-directory file))
+
     (mapcar
      (function (lambda (s) (and s (setq squeezed (append squeezed (list s))))))
      flags)