procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(let_shadows_buffer_binding_p): Ignore specbindings

Browse source 
for symbols other than the symbol in question.
This commit is contained in:
Gerd Moellmann 2000-02-18 13:30:59 +00:00
parent b6a22bf83e
commit f0930f35f1
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -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.

4
src/data.c
View file

@ -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;