From 315e49edd07ce7a4c5d685acc88e83bbdc4620fe Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 12 Dec 1992 15:22:26 +0000 Subject: [PATCH] * vc.el (vc-do-command): Set the default directory of the *vc* buffer to the directory containing FILE. --- lisp/vc.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/vc.el b/lisp/vc.el index 15f304dcd18..91c5908b389 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; 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 @@ the master name of FILE; this is appended to an optional list of FLAGS." 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)