# HG changeset patch # User Andr Spiegel # Date 984221345 0 # Node ID 22fd463447c313388e5bbb2de127633e0cf88781 # Parent 66e9d0506b714fc08f50b0cf16aaa306ca168dab (vc-cvs-checkin): When removing the sticky tag, make output go to buffer *vc*, not the current buffer. (vc-cvs-print-log): Output to buffer *vc*, not the current buffer. (vc-cvs-diff): Output to buffer *vc-diff*, not the current buffer. diff -r 66e9d0506b71 -r 22fd463447c3 lisp/vc-cvs.el --- a/lisp/vc-cvs.el Sat Mar 10 10:44:35 2001 +0000 +++ b/lisp/vc-cvs.el Sat Mar 10 10:49:05 2001 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.19 2001/02/01 15:10:16 spiegel Exp $ +;; $Id: vc-cvs.el,v 1.20 2001/02/02 07:21:21 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -296,7 +296,7 @@ ;; vc-cvs-checkout-model). (vc-file-setprop file 'vc-checkout-model nil) ;; if this was an explicit check-in, remove the sticky tag - (if rev (vc-do-command t 0 "cvs" file "update" "-A")))) + (if rev (vc-do-command nil 0 "cvs" file "update" "-A")))) (defun vc-cvs-checkout (file &optional editable rev workfile) "Retrieve a revision of FILE into a WORKFILE. @@ -461,7 +461,7 @@ (defun vc-cvs-print-log (file) "Get change log associated with FILE." - (vc-do-command t (if (vc-cvs-stay-local-p file) 'async 0) + (vc-do-command nil (if (vc-cvs-stay-local-p file) 'async 0) "cvs" file "log")) (defun vc-cvs-show-log-entry (version) @@ -504,11 +504,11 @@ (error "No revisions of %s exist" file) ;; we regard this as "changed". ;; diff it against /dev/null. - (apply 'vc-do-command t + (apply 'vc-do-command "*vc-diff*" 1 "diff" file (append diff-switches-list '("/dev/null")))) (setq status - (apply 'vc-do-command t + (apply 'vc-do-command "*vc-diff*" (if (vc-cvs-stay-local-p file) 'async 1) "cvs" file "diff" (and oldvers (concat "-r" oldvers))