diff lisp/vc-mcvs.el @ 94847:5e64dca662f0

Remove assumption about what nil means as a first arument to vc-do-command.

--- a/lisp/vc-mcvs.el	Sat May 10 13:09:04 2008 +0000
+++ b/lisp/vc-mcvs.el	Sat May 10 13:27:16 2008 +0000
@@ -533,13 +533,13 @@
 			(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