From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 May 1991 22:02:03 +0000 (+0000)
Subject: If looking for local value of variable in buffer other than the
X-Git-Tag: 20090517-FFI~10688
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb04980fb9b8f9f62f455c3f6808be8d4e5cb119;p=mit-scheme.git

If looking for local value of variable in buffer other than the
current one, and the variable doesn't appear in the buffer's local
bindings, must search the current buffer's local bindings too.
---

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 1d8f0cc2a..6989aca7b 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.145 1991/05/02 01:12:28 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.146 1991/05/04 22:02:03 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -377,12 +377,12 @@ The buffer is guaranteed to be deselected at that time."
 		 (%set-variable-value! variable (cdr binding)))))))))
 
 (define (variable-local-value buffer variable)
-  (let ((binding
-	 (and (not (buffer-local-bindings-installed? buffer))
-	      (search-local-bindings buffer variable))))
-    (if binding
-	(cdr binding)
-	(variable-value variable))))
+  (if (buffer-local-bindings-installed? buffer)
+      (variable-value variable)
+      (let ((binding (search-local-bindings buffer variable)))
+	(if binding
+	    (cdr binding)
+	    (variable-default-value variable)))))
 
 (define (set-variable-local-value! buffer variable value)
   (if (variable-buffer-local? variable)