diff options
| author | André Spiegel | 2001-03-10 10:50:16 +0000 |
|---|---|---|
| committer | André Spiegel | 2001-03-10 10:50:16 +0000 |
| commit | cdc2fe43d4f9c5504a750873822667bd47f02a9e (patch) | |
| tree | 6761b15a9a75d43a2e6feec87b0860a657a148fe | |
| parent | 6e024fc80f30cea722b762197195968fdc692e66 (diff) | |
| download | emacs-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.el | 6 |
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))) |