(let_shadows_buffer_binding_p): Ignore specbindings

for symbols other than the symbol in question.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/data.c b/src/data.c
index ce9de8c5b23..a206c5c4994 100644
--- 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;