diff options
| author | André Spiegel | 2004-03-21 15:46:23 +0000 |
|---|---|---|
| committer | André Spiegel | 2004-03-21 15:46:23 +0000 |
| commit | 69c33e5d7825a8f6a5f1ced00db79dff8015612e (patch) | |
| tree | 5a76ded1375bb945c4fb682598feb518eeeba12c | |
| parent | a9817cc4043be50bcf8f2860747181b9b459fcf4 (diff) | |
| download | emacs-69c33e5d7825a8f6a5f1ced00db79dff8015612e.tar.gz emacs-69c33e5d7825a8f6a5f1ced00db79dff8015612e.zip | |
(vc-rcs-print-log, vc-rcs-diff): Add optional BUFFER argument.
| -rw-r--r-- | lisp/vc-rcs.el | 10 |
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))) |