# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 950880416 0
# Node ID 1633d572e98fc9bd15a2baeb95d7c74f0d1470d3
# Parent  12df8818f3f2dc6d5ce83343a33bb3ea8cf2ee91
(let_shadows_buffer_binding_p): Ignore specbindings
for symbols other than the symbol in question.

diff -r 12df8818f3f2 -r 1633d572e98f src/data.c
--- a/src/data.c	Fri Feb 18 11:35:29 2000 +0000
+++ b/src/data.c	Fri Feb 18 13:26:56 2000 +0000
@@ -960,7 +960,9 @@
   struct specbinding *p;
 
   for (p = specpdl_ptr - 1; p >= specpdl; p--)
-    if (p->func == 0 && CONSP (p->symbol)
+    if (p->func == 0
+	&& CONSP (p->symbol)
+	&& EQ (symbol, XCAR (p->symbol))
 	&& XBUFFER (XCDR (XCDR (p->symbol))) == current_buffer)
       return 1;