From f0930f35f10d646696bb3c8084085f3d9b2422c4 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 18 Feb 2000 13:30:59 +0000 Subject: [PATCH] (let_shadows_buffer_binding_p): Ignore specbindings for symbols other than the symbol in question. --- src/ChangeLog | 5 +++++ src/data.c | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * data.c (let_shadows_buffer_binding_p): Ignore specbindings + for symbols other than the symbol in question. + 2000-02-17 Dave Love * 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; -- 2.39.5