procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-sccs-print-log, vc-sccs-diff): Add optional BUFFER argument.

Browse source
This commit is contained in:
André Spiegel 2004-03-21 15:49:55 +00:00
parent 69c33e5d78
commit e556ef057e
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/vc-sccs.el
View file

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-sccs.el,v 1.23 2003/08/12 18:01:21 spiegel Exp $
;; $Id: vc-sccs.el,v 1.24 2003/09/01 15:45:17 miles Exp $
;; This file is part of GNU Emacs.
@ -270,9 +270,9 @@ EDITABLE non-nil means previous version should be locked."
;;; History functions
;;;
(defun vc-sccs-print-log (file)
(defun vc-sccs-print-log (file &optional buffer)
"Get change log associated with FILE."
(vc-do-command nil 0 "prs" (vc-name file)))
(vc-do-command buffer 0 "prs" (vc-name file)))
(defun vc-sccs-logentry-check ()
"Check that the log entry in the current buffer is acceptable for SCCS."
@ -280,11 +280,11 @@ EDITABLE non-nil means previous version should be locked."
(goto-char 512)
(error "Log must be less than 512 characters; point is now at pos 512")))
(defun vc-sccs-diff (file &optional oldvers newvers)
(defun vc-sccs-diff (file &optional oldvers newvers buffer)
"Get a difference report using SCCS between two versions of FILE."
(setq oldvers (vc-sccs-lookup-triple file oldvers))
(setq newvers (vc-sccs-lookup-triple file newvers))
(apply 'vc-do-command "*vc-diff*" 1 "vcdiff" (vc-name file)
(apply 'vc-do-command (or buffer "*vc-diff*") 1 "vcdiff" (vc-name file)
(append (list "-q"
(and oldvers (concat "-r" oldvers))
(and newvers (concat "-r" newvers)))