diff options
author | Jim Blandy <[email protected]> | 1992-12-12 15:22:26 +0000 |
---|---|---|
committer | Jim Blandy <[email protected]> | 1992-12-12 15:22:26 +0000 |
commit | 315e49edd07ce7a4c5d685acc88e83bbdc4620fe (patch) | |
tree | 96a6523385e4be17639f2af67d1e7123cf6b2c07 | |
parent | 898221e3327faec032e0014ce0e7b62c8fa8e1f7 (diff) |
* vc.el (vc-do-command): Set the default directory of the *vc*
buffer to the directory containing FILE.
-rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 15f304dcd1..91c5908b38 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond <[email protected]> ;; 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) |