Mercurial > emacs
comparison lisp/vc-rcs.el @ 36712:551ff6f7ef12
(vc-rcs-print-log): Output to buffer *vc*, not the current buffer.
(vc-rcs-diff): Output to buffer *vc-diff*, not the current buffer.
author | André Spiegel <spiegel@gnu.org> |
---|---|
date | Sat, 10 Mar 2001 10:50:16 +0000 |
parents | 037d66685778 |
children | b174db545cfd |
comparison
equal
deleted
inserted
replaced
36711:22fd463447c3 | 36712:551ff6f7ef12 |
---|---|
3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. |
4 | 4 |
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 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
507 ;;; History functions | 507 ;;; History functions |
508 ;;; | 508 ;;; |
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 |
516 ;; also match some context, for safety | 516 ;; also match some context, for safety |
517 (concat "----\nrevision " version | 517 (concat "----\nrevision " version |
543 (recenter 0)))))) | 543 (recenter 0)))))) |
544 | 544 |
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))) |
552 (vc-diff-switches-list rcs)))) | 552 (vc-diff-switches-list rcs)))) |
553 | 553 |