From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 2 Apr 2000 03:11:48 +0000 (+0000)
Subject: Fix two bugs in file registration.
X-Git-Tag: 20090517-FFI~4110
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d2dcf7cbd53d416a5824f685e822785b5144907;p=mit-scheme.git

Fix two bugs in file registration.
---

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index 2e14f4123..294d34d07 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.59 2000/04/01 05:17:53 cph Exp $
+;;; $Id: vc.scm,v 1.60 2000/04/02 03:11:48 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -591,7 +591,9 @@ merge in the changes into your working copy."
 			  (if (ref-variable vc-initial-comment buffer)
 			      #f
 			      ""))
-		      (let ((keep? (or keep? (vc-keep-workfiles? workfile))))
+		      (let ((keep?
+			     (or keep?
+				 (ref-variable vc-keep-workfiles buffer))))
 			(lambda (comment)
 			  (vc-backend-register workfile revision comment keep?)
 			  (vc-resync-workfile-buffer workfile keep?)))
@@ -635,7 +637,10 @@ merge in the changes into your working copy."
   (let ((revision (vc-get-revision revision? "New version level")))
     (vc-save-workfile-buffer (vc-master-workfile master))
     (vc-start-entry master "Enter a change comment." comment
-		    (let ((keep? (vc-keep-workfiles? master)))
+		    (let ((keep?
+			   (or (cvs-master? master)
+			       (ref-variable vc-keep-workfiles
+					     (vc-workfile-buffer master #f)))))
 		      (lambda (comment)
 			(vc-backend-checkin master revision
 					    (if (blank-string? comment)
@@ -1483,24 +1488,25 @@ the value of vc-log-mode-hook."
 
 (define-vc-type-operation 'DIFF vc-type:rcs
   (lambda (master rev1 rev2 simple?)
-    (vc-run-command master
-		    `((STATUS 1)
-		      (BUFFER ,(get-vc-diff-buffer simple?)))
-		    "rcsdiff"
-		    "-q"
-		    (if (and rev1 rev2)
-			(list (string-append "-r" rev1)
-			      (string-append "-r" rev2))
-			(let ((rev
-			       (or rev1 rev2
-				   (vc-backend-workfile-revision master))))
-			  (and rev
-			       (string-append "-r" rev))))
-		    (if simple?
-			(and (diff-brief-available?) "--brief")
-			(ref-variable diff-switches
-				      (vc-workfile-buffer master #f)))
-		    (vc-master-workfile master))))
+    (= 1
+       (vc-run-command master
+		       `((STATUS 1)
+			 (BUFFER ,(get-vc-diff-buffer simple?)))
+		       "rcsdiff"
+		       "-q"
+		       (if (and rev1 rev2)
+			   (list (string-append "-r" rev1)
+				 (string-append "-r" rev2))
+			   (let ((rev
+				  (or rev1 rev2
+				      (vc-backend-workfile-revision master))))
+			     (and rev
+				  (string-append "-r" rev))))
+		       (if simple?
+			   (and (diff-brief-available?) "--brief")
+			   (ref-variable diff-switches
+					 (vc-workfile-buffer master #f)))
+		       (vc-master-workfile master)))))
 
 (define-vc-type-operation 'PRINT-LOG vc-type:rcs
   (lambda (master)
@@ -1964,10 +1970,6 @@ the value of vc-log-mode-hook."
 			    (append (pathname-directory directory)
 				    (list name)))))
 
-(define (vc-keep-workfiles? master)
-  (or (cvs-master? master)
-      (ref-variable vc-keep-workfiles (vc-workfile-buffer master #f))))
-
 (define (->workfile object)
   (cond ((vc-master? object) (vc-master-workfile object))
 	((pathname? object) object)