From 6e024fc80f30cea722b762197195968fdc692e66 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Sat, 10 Mar 2001 10:49:05 +0000 Subject: [PATCH] (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. --- lisp/vc-cvs.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 2ca04b4f9cd..8c6805d6752 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -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 @@ This is only possible if CVS is responsible for FILE's directory." ;; 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 @@ The changes are between FIRST-VERSION and SECOND-VERSION." (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 @@ The changes are between FIRST-VERSION and SECOND-VERSION." (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)) -- 2.39.5