mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* vc.el (vc-do-command): Set the default directory of the *vc*

Browse Source 
buffer to the directory containing FILE.
This commit is contained in:
Jim Blandy 1992-12-12 15:22:26 +00:00
parent 898221e332
commit 315e49edd0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/vc.el
View File

@ -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 @@ 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)