Commit 69c33e5d authored by André Spiegel's avatar André Spiegel
Browse files

(vc-rcs-print-log, vc-rcs-diff): Add optional BUFFER argument.

parent a9817cc4
......@@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <>
;; $Id: vc-rcs.el,v 1.37 2003/05/08 19:24:56 monnier Exp $
;; $Id: vc-rcs.el,v 1.38 2003/09/01 15:45:17 miles Exp $
;; This file is part of GNU Emacs.
......@@ -479,14 +479,14 @@ Needs RCS 5.6.2 or later for -M."
;;; History functions
(defun vc-rcs-print-log (file)
(defun vc-rcs-print-log (file &optional buffer)
"Get change log associated with FILE."
(vc-do-command nil 0 "rlog" (vc-name file)))
(vc-do-command buffer 0 "rlog" (vc-name file)))
(defun vc-rcs-diff (file &optional oldvers newvers)
(defun vc-rcs-diff (file &optional oldvers newvers buffer)
"Get a difference report using RCS between two versions of FILE."
(if (not oldvers) (setq oldvers (vc-workfile-version file)))
(apply 'vc-do-command "*vc-diff*" 1 "rcsdiff" file
(apply 'vc-do-command (or buffer "*vc-diff*") 1 "rcsdiff" file
(append (list "-q"
(concat "-r" oldvers)
(and newvers (concat "-r" newvers)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment