From 9324d4cc622586d10d1b45aaf5bd9a4a4ff9556e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 27 Mar 2000 21:02:24 +0000
Subject: [PATCH] Implement VC-FOLLOW-SYMLINKS variable.

---
 v7/src/edwin/vc.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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)))
-- 
2.25.1