(let_shadows_buffer_binding_p): Ignore specbindings

for symbols other than the symbol in question.

diff --git a/src/ChangeLog b/src/ChangeLog
index 55a7257545bf6c90aeef972a958aeff114a550a4..2293134e67b469ca1e3e05a49d9ab6e7eee7da3a 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-18  Gerd Moellmann  <gerd@gnu.org>
+
+       * data.c (let_shadows_buffer_binding_p): Ignore specbindings
+       for symbols other than the symbol in question.
+
 2000-02-17  Dave Love  <fx@gnu.org>
 
        * s/sol2.h (C_DEBUG_SWITCH): Define to allow optimization.

diff --git a/src/data.c b/src/data.c
index ce9de8c5b23ff1e6304b7f0dade949de88df1ee8..a206c5c4994439af8795a1fdd06a02ce0eb68459 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -960,7 +960,9 @@ let_shadows_buffer_binding_p (symbol)
   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;