aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndré Spiegel2001-03-10 10:50:16 +0000
committerAndré Spiegel2001-03-10 10:50:16 +0000
commitcdc2fe43d4f9c5504a750873822667bd47f02a9e (patch)
tree6761b15a9a75d43a2e6feec87b0860a657a148fe
parent6e024fc80f30cea722b762197195968fdc692e66 (diff)
downloademacs-cdc2fe43d4f9c5504a750873822667bd47f02a9e.tar.gz
emacs-cdc2fe43d4f9c5504a750873822667bd47f02a9e.zip
(vc-rcs-print-log): Output to buffer *vc*, not the current buffer.
(vc-rcs-diff): Output to buffer *vc-diff*, not the current buffer.
-rw-r--r--lisp/vc-rcs.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index 8a46f63cb38..7eb3a7ca3fc 100644
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -5,7 +5,7 @@
5;; Author: FSF (see vc.el for full credits) 5;; Author: FSF (see vc.el for full credits)
6;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8;; $Id: vc-rcs.el,v 1.17 2001/02/01 15:11:05 spiegel Exp $ 8;; $Id: vc-rcs.el,v 1.18 2001/02/01 17:42:03 fx Exp $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -509,7 +509,7 @@ Needs RCS 5.6.2 or later for -M."
509 509
510(defun vc-rcs-print-log (file) 510(defun vc-rcs-print-log (file)
511 "Get change log associated with FILE." 511 "Get change log associated with FILE."
512 (vc-do-command t 0 "rlog" (vc-name file))) 512 (vc-do-command nil 0 "rlog" (vc-name file)))
513 513
514(defun vc-rcs-show-log-entry (version) 514(defun vc-rcs-show-log-entry (version)
515 (when (re-search-forward 515 (when (re-search-forward
@@ -545,7 +545,7 @@ Needs RCS 5.6.2 or later for -M."
545(defun vc-rcs-diff (file &optional oldvers newvers) 545(defun vc-rcs-diff (file &optional oldvers newvers)
546 "Get a difference report using RCS between two versions of FILE." 546 "Get a difference report using RCS between two versions of FILE."
547 (if (not oldvers) (setq oldvers (vc-workfile-version file))) 547 (if (not oldvers) (setq oldvers (vc-workfile-version file)))
548 (apply 'vc-do-command t 1 "rcsdiff" file 548 (apply 'vc-do-command "*vc-diff*" 1 "rcsdiff" file
549 (append (list "-q" 549 (append (list "-q"
550 (concat "-r" oldvers) 550 (concat "-r" oldvers)
551 (and newvers (concat "-r" newvers))) 551 (and newvers (concat "-r" newvers)))