Mercurial > emacs

comparison lisp/vc-rcs.el @ 36712:551ff6f7ef12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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