From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 18 Feb 2000 13:30:59 +0000 (+0000)
Subject: (let_shadows_buffer_binding_p): Ignore specbindings
X-Git-Tag: emacs-pretest-21.0.90~4974
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0930f35f10d646696bb3c8084085f3d9b2422c4;p=emacs.git

(let_shadows_buffer_binding_p): Ignore specbindings
for symbols other than the symbol in question.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 55a7257545b..2293134e67b 100644
--- 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 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;