Commit bc985141 authored by Paul Eggert's avatar Paul Eggert
Browse files

Fix specpdl loop typo.

parent 45c2afd6
......@@ -1094,7 +1094,7 @@ let_shadows_global_binding_p (Lisp_Object symbol)
{
struct specbinding *p;
for (p = specpdl_ptr; p > specpdl; p)
for (p = specpdl_ptr; p > specpdl; )
if ((--p)->func == NULL && EQ (p->symbol, symbol))
return 1;
......
......@@ -758,7 +758,7 @@ The return value is BASE-VARIABLE. */)
{
struct specbinding *p;
for (p = specpdl_ptr; p > specpdl; p)
for (p = specpdl_ptr; p > specpdl; )
if ((--p)->func == NULL
&& (EQ (new_alias,
CONSP (p->symbol) ? XCAR (p->symbol) : p->symbol)))
......
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