Mercurial > emacs
changeset 54466:37e95eddf2e8
(vc-rcs-print-log, vc-rcs-diff): Add optional BUFFER argument.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Sun, 21 Mar 2004 15:46:23 +0000 |
| parents | 2e4ddb8bfffd |
| children | 9df38e21f685 |
| files | lisp/vc-rcs.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-rcs.el Sun Mar 21 15:45:31 2004 +0000 +++ b/lisp/vc-rcs.el Sun Mar 21 15:46:23 2004 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $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 @@ ;;; 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)))