Commit e556ef05 authored by André Spiegel's avatar André Spiegel
Browse files

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

parent 69c33e5d
......@@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <>
;; $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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment