# HG changeset patch # User Andr Spiegel # Date 1079884195 0 # Node ID 9df38e21f6857c0f1a58c278b70f1c6e9ba22909 # Parent 37e95eddf2e85f0342b52c7a296e3f719c3dca17 (vc-sccs-print-log, vc-sccs-diff): Add optional BUFFER argument. diff -r 37e95eddf2e8 -r 9df38e21f685 lisp/vc-sccs.el --- a/lisp/vc-sccs.el Sun Mar 21 15:46:23 2004 +0000 +++ b/lisp/vc-sccs.el Sun Mar 21 15:49:55 2004 +0000 @@ -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 @@ ;;; 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 @@ (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)))