aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndré Spiegel2004-03-21 15:46:23 +0000
committerAndré Spiegel2004-03-21 15:46:23 +0000
commit69c33e5d7825a8f6a5f1ced00db79dff8015612e (patch)
tree5a76ded1375bb945c4fb682598feb518eeeba12c
parenta9817cc4043be50bcf8f2860747181b9b459fcf4 (diff)
downloademacs-69c33e5d7825a8f6a5f1ced00db79dff8015612e.tar.gz
emacs-69c33e5d7825a8f6a5f1ced00db79dff8015612e.zip
(vc-rcs-print-log, vc-rcs-diff): Add optional BUFFER argument.
-rw-r--r--lisp/vc-rcs.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index ba4905897ae..02dc093ed5a 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.37 2003/05/08 19:24:56 monnier Exp $ 8;; $Id: vc-rcs.el,v 1.38 2003/09/01 15:45:17 miles Exp $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -479,14 +479,14 @@ Needs RCS 5.6.2 or later for -M."
479;;; History functions 479;;; History functions
480;;; 480;;;
481 481
482(defun vc-rcs-print-log (file) 482(defun vc-rcs-print-log (file &optional buffer)
483 "Get change log associated with FILE." 483 "Get change log associated with FILE."
484 (vc-do-command nil 0 "rlog" (vc-name file))) 484 (vc-do-command buffer 0 "rlog" (vc-name file)))
485 485
486(defun vc-rcs-diff (file &optional oldvers newvers) 486(defun vc-rcs-diff (file &optional oldvers newvers buffer)
487 "Get a difference report using RCS between two versions of FILE." 487 "Get a difference report using RCS between two versions of FILE."
488 (if (not oldvers) (setq oldvers (vc-workfile-version file))) 488 (if (not oldvers) (setq oldvers (vc-workfile-version file)))
489 (apply 'vc-do-command "*vc-diff*" 1 "rcsdiff" file 489 (apply 'vc-do-command (or buffer "*vc-diff*") 1 "rcsdiff" file
490 (append (list "-q" 490 (append (list "-q"
491 (concat "-r" oldvers) 491 (concat "-r" oldvers)
492 (and newvers (concat "-r" newvers))) 492 (and newvers (concat "-r" newvers)))