# HG changeset patch
# User vins
# Date 1107518249 0
# Node ID bbc3231c4812ccf00e30ede3a92a2d25870145b9
# Parent  045f20e1c3afcbcb1b3e9e6cbc3606ef3413d8bd
[xemacs-hg @ 2005-02-04 11:57:28 by vins]
EXTERNAL_LIST_LOOP_2 declares data and must be enclosed in braces.

diff -r 045f20e1c3af -r bbc3231c4812 src/ChangeLog
--- a/src/ChangeLog	Fri Feb 04 04:06:34 2005 +0000
+++ b/src/ChangeLog	Fri Feb 04 11:57:29 2005 +0000
@@ -1,3 +1,9 @@
+2005-02-04  Vin Shelton  <acs@xemacs.org>
+
+	* lread.c (check_if_suppressed, check_if_suppressed):
+	EXTERNAL_LIST_LOOP_2 declares variables and must be enclosed in
+	braces.  Thanks, Fabrice.
+
 2005-02-03  David Evers  <extsw@appliedgenerics.com>
 
 	* process-unix.c (unix_send_process): Flush the last chunk, even
diff -r 045f20e1c3af -r bbc3231c4812 src/lread.c
--- a/src/lread.c	Fri Feb 04 04:06:34 2005 +0000
+++ b/src/lread.c	Fri Feb 04 11:57:29 2005 +0000
@@ -358,26 +358,28 @@
   else if (len >= 3 && !qxestrcmp_ascii (nonreloc + len - 3, ".el"))
     len -= 3;
 
-  EXTERNAL_LIST_LOOP_2 (acons, Vload_suppress_alist)
-    {
-      if (CONSP (acons) && STRINGP (XCAR (acons)))
-	{
-	  Lisp_Object name = XCAR (acons);
-	  if (XSTRING_LENGTH (name) == len &&
-	      !memcmp (XSTRING_DATA (name), nonreloc, len))
-	    {
-	      struct gcpro gcpro1;
-	      Lisp_Object val;
-
-	      GCPRO1 (reloc);
-	      val = Feval (XCDR (acons));
-	      UNGCPRO;
-
-	      if (!NILP (val))
-		return 1;
-	    }
-	}
-    }
+  {
+      EXTERNAL_LIST_LOOP_2 (acons, Vload_suppress_alist)
+      {
+	  if (CONSP (acons) && STRINGP (XCAR (acons)))
+	  {
+	      Lisp_Object name = XCAR (acons);
+	      if (XSTRING_LENGTH (name) == len &&
+		  !memcmp (XSTRING_DATA (name), nonreloc, len))
+	      {
+		  struct gcpro gcpro1;
+		  Lisp_Object val;
+
+		  GCPRO1 (reloc);
+		  val = Feval (XCDR (acons));
+		  UNGCPRO;
+
+		  if (!NILP (val))
+		      return 1;
+	      }
+	  }
+      }
+  }
 
   return 0;
 }