Commit f0930f35 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(let_shadows_buffer_binding_p): Ignore specbindings

for symbols other than the symbol in question.
parent b6a22bf8
No preview for this file type
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment