From 548aeffed9d895273b6ed9d7830120aee515185f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 12 Oct 1994 01:52:11 +0000 Subject: [PATCH] All existing calls to CURRENT-VC-MASTER require the optional #T argument because the callers cannot handle a returned value of #F. --- v7/src/edwin/vc.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm index 66800d2b9..102b3c13a 100644 --- a/v7/src/edwin/vc.scm +++ b/v7/src/edwin/vc.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: vc.scm,v 1.15 1994/09/09 01:21:50 adams Exp $ +;;; $Id: vc.scm,v 1.16 1994/10/12 01:52:11 cph Exp $ ;;; ;;; Copyright (c) 1994 Massachusetts Institute of Technology ;;; @@ -460,7 +460,7 @@ If the current buffer is named `F', the version is named `F.~REV~'. If `F.~REV~' already exists, it is used instead of being re-created." "sVersion to visit (default is latest version)" (lambda (revision) - (let ((master (current-vc-master))) + (let ((master (current-vc-master #t))) (let ((revision (or (vc-normalize-version revision) (vc-backend-default-version master)))) @@ -478,7 +478,7 @@ If `F.~REV~' already exists, it is used instead of being re-created." Headers are inserted at the start of the buffer." () (lambda () - (let ((master (current-vc-master))) + (let ((master (current-vc-master #t))) (let ((buffer (or (vc-workfile-buffer master) (find-file-other-window (vc-workfile-pathname master))))) @@ -503,7 +503,7 @@ Headers are inserted at the start of the buffer." "List the change log of the current buffer in a window." () (lambda () - (vc-backend-print-log (current-vc-master)) + (vc-backend-print-log (current-vc-master #t)) (pop-up-vc-command-buffer #f))) (define-command vc-list-locked-files @@ -512,7 +512,7 @@ Normally lists only those files locked by the user; prefix arg says to list all locked files regardless." "P" (lambda (all-lockers?) - (vc-backend-list-locked-files (current-vc-master) all-lockers?) + (vc-backend-list-locked-files (current-vc-master #t) all-lockers?) (pop-up-vc-command-buffer #f))) (define-command vc-revert-buffer -- 2.25.1