Mercurial > emacs
changeset 1674:75e8a7f920c7
* vc.el (vc-do-command): Set the default directory of the *vc*
buffer to the directory containing FILE.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 12 Dec 1992 15:22:26 +0000 |
| parents | 975c866af92d |
| children | 2d6fee9f818d |
| files | lisp/vc.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)