From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 21 Sep 2011 20:15:56 +0000 (-0700)
Subject: Fix specpdl loop typo.
X-Git-Tag: emacs-24.2.90~471^2~6^2~207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc9851415e121c2c0416252c97e23add9d80c482;p=emacs.git

Fix specpdl loop typo.
---

diff --git a/src/data.c b/src/data.c
index 211a64661ac..b81d1b88545 100644
--- a/src/data.c
+++ b/src/data.c
@@ -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;
 
diff --git a/src/eval.c b/src/eval.c
index 5fa9a945ef5..b4ef785b3c7 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -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)))