Mercurial > hg > xemacs-beta

diff src/lread.c @ 2567:bbc3231c4812

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-04 11:57:28 by vins] EXTERNAL_LIST_LOOP_2 declares data and must be enclosed in braces.
author vins
date Fri, 04 Feb 2005 11:57:29 +0000
parents c4c8a36043be
children 21e33c0c844b
line wrap: on
line diff
--- 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;
 }