diff options
author | André Spiegel <spiegel@gnu.org> | 2001-03-10 10:50:16 +0000 |
---|---|---|
committer | André Spiegel <spiegel@gnu.org> | 2001-03-10 10:50:16 +0000 |
commit | 0b1fdd19fd55cab750053558746975955d9b6f58 (patch) | |
tree | edae1d431f3a896678d0cdb46cf12ff2da6b0a84 /lisp/vc-rcs.el | |
parent | 262e7ee570685c7f0d40a747fcf0e816590779a8 (diff) | |
download | emacs-0b1fdd19fd55cab750053558746975955d9b6f58.tar.gz |
(vc-rcs-print-log): Output to buffer *vc*, not the current buffer.
(vc-rcs-diff): Output to buffer *vc-diff*, not the current buffer.
Diffstat (limited to 'lisp/vc-rcs.el')
-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 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-rcs.el,v 1.17 2001/02/01 15:11:05 spiegel Exp $ +;; $Id: vc-rcs.el,v 1.18 2001/02/01 17:42:03 fx Exp $ ;; This file is part of GNU Emacs. @@ -509,7 +509,7 @@ Needs RCS 5.6.2 or later for -M." (defun vc-rcs-print-log (file) "Get change log associated with FILE." - (vc-do-command t 0 "rlog" (vc-name file))) + (vc-do-command nil 0 "rlog" (vc-name file))) (defun vc-rcs-show-log-entry (version) (when (re-search-forward @@ -545,7 +545,7 @@ Needs RCS 5.6.2 or later for -M." (defun vc-rcs-diff (file &optional oldvers newvers) "Get a difference report using RCS between two versions of FILE." (if (not oldvers) (setq oldvers (vc-workfile-version file))) - (apply 'vc-do-command t 1 "rcsdiff" file + (apply 'vc-do-command "*vc-diff*" 1 "rcsdiff" file (append (list "-q" (concat "-r" oldvers) (and newvers (concat "-r" newvers))) |