diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-10 13:27:16 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-10 13:27:16 +0000 |
| commit | 2888a97eb5437535f484f725d3d9606f1cbdbd8f (patch) | |
| tree | efe43d9517aabfc09b5c70a8896175333eb13ab7 /lisp/vc-mcvs.el | |
| parent | b3fccc2715c53adc5f80eb003abcd27f215f4564 (diff) | |
| download | emacs-2888a97eb5437535f484f725d3d9606f1cbdbd8f.tar.gz | |
Remove assumption about what nil means as a first arument to vc-do-command.
Diffstat (limited to 'lisp/vc-mcvs.el')
| -rw-r--r-- | lisp/vc-mcvs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index 7bef11c2401..dfe3bb1d1f9 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -533,13 +533,13 @@ and that it passes `vc-mcvs-global-switches' to it before FLAGS." (append vc-mcvs-global-switches flags))))) (if (not (member (car flags) '("diff" "log" "status"))) ;; No need to filter: do it the easy way. - (apply 'vc-do-command buffer okstatus "mcvs" file args) + (apply 'vc-do-command (or buffer "*vc*") okstatus "mcvs" file args) ;; We need to filter the output. ;; The output of the filter uses filenames relative to the root, ;; so we need to change the default-directory. ;; (assert (equal default-directory (vc-mcvs-root file))) (vc-do-command - buffer okstatus "sh" nil "-c" + (or buffer "*vc*") okstatus "sh" nil "-c" (concat "mcvs " (mapconcat 'shell-quote-argument |