From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 27 Mar 2000 21:02:24 +0000 (+0000)
Subject: Implement VC-FOLLOW-SYMLINKS variable.
X-Git-Tag: 20090517-FFI~4138
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9324d4cc622586d10d1b45aaf5bd9a4a4ff9556e;p=mit-scheme.git

Implement VC-FOLLOW-SYMLINKS variable.
---

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index febc70de3..927fddc4c 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.46 2000/03/27 20:58:42 cph Exp $
+;;; $Id: vc.scm,v 1.47 2000/03/27 21:02:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -223,7 +223,8 @@ Otherwise, the mod time of the file is the checkout time."
 	    => (lambda (master)
 		 (vc-mode-line master buffer)
 		 (if (not (ref-variable vc-make-backup-files buffer))
-		     (local-set-variable! make-backup-files #f buffer))))
+		     (local-set-variable! make-backup-files #f buffer))
+		 buffer))
 	   ((let ((pathname (buffer-pathname buffer)))
 	      (and (file-symbolic-link? pathname)
 		   (file-vc-master (file-chase-links pathname) #f)))