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 @@ ...@@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits) ;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; 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. ;; This file is part of GNU Emacs.
...@@ -270,9 +270,9 @@ EDITABLE non-nil means previous version should be locked." ...@@ -270,9 +270,9 @@ EDITABLE non-nil means previous version should be locked."
;;; History functions ;;; History functions
;;; ;;;
(defun vc-sccs-print-log (file) (defun vc-sccs-print-log (file &optional buffer)
"Get change log associated with FILE." "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 () (defun vc-sccs-logentry-check ()
"Check that the log entry in the current buffer is acceptable for SCCS." "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." ...@@ -280,11 +280,11 @@ EDITABLE non-nil means previous version should be locked."
(goto-char 512) (goto-char 512)
(error "Log must be less than 512 characters; point is now at pos 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." "Get a difference report using SCCS between two versions of FILE."
(setq oldvers (vc-sccs-lookup-triple file oldvers)) (setq oldvers (vc-sccs-lookup-triple file oldvers))
(setq newvers (vc-sccs-lookup-triple file newvers)) (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" (append (list "-q"
(and oldvers (concat "-r" oldvers)) (and oldvers (concat "-r" oldvers))
(and newvers (concat "-r" newvers))) (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