comparison lisp/vc-rcs.el @ 83082:108bb5537c12

Merged in changes from CVS HEAD Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-161 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-162 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-163 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-164 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-165 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-166 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-167 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-168 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-169 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-170 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-171 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-172 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-122

83081:32a426d0a0e3

;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001  Free Software Foundation, Inc.

;; Author:     FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc-rcs.el,v 1.38 2003/09/01 15:45:17 miles Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by


;;;
;;; History functions
;;;

(defun vc-rcs-print-log (file)
  "Get change log associated with FILE."
  (vc-do-command nil 0 "rlog" (vc-name file)))

(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 "*vc-diff*" 1 "rcsdiff" file
         (append (list "-q"
                       (concat "-r" oldvers)
                       (and newvers (concat "-r" newvers)))
                 (vc-switches 'RCS 'diff))))

83082:108bb5537c12

;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001  Free Software Foundation, Inc.

;; Author:     FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc-rcs.el,v 1.39 2004/03/21 15:46:23 spiegel Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by


;;;
;;; History functions
;;;

(defun vc-rcs-print-log (file &optional buffer)
  "Get change log associated with FILE."
  (vc-do-command buffer 0 "rlog" (vc-name file)))

(defun vc-rcs-diff (file &optional oldvers newvers buffer)
  "Get a difference report using RCS between two versions of FILE."
  (if (not oldvers) (setq oldvers (vc-workfile-version file)))
  (apply 'vc-do-command (or buffer "*vc-diff*") 1 "rcsdiff" file
         (append (list "-q"
                       (concat "-r" oldvers)
                       (and newvers (concat "-r" newvers)))
                 (vc-switches 'RCS 'diff))))