Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2566:045f20e1c3af 2567:bbc3231c4812
356 if (len >= 4 && !qxestrcmp_ascii (nonreloc + len - 4, ".elc")) 356 if (len >= 4 && !qxestrcmp_ascii (nonreloc + len - 4, ".elc"))
357 len -= 4; 357 len -= 4;
358 else if (len >= 3 && !qxestrcmp_ascii (nonreloc + len - 3, ".el")) 358 else if (len >= 3 && !qxestrcmp_ascii (nonreloc + len - 3, ".el"))
359 len -= 3; 359 len -= 3;
360 360
361 EXTERNAL_LIST_LOOP_2 (acons, Vload_suppress_alist) 361 {
362 { 362 EXTERNAL_LIST_LOOP_2 (acons, Vload_suppress_alist)
363 if (CONSP (acons) && STRINGP (XCAR (acons))) 363 {
364 { 364 if (CONSP (acons) && STRINGP (XCAR (acons)))
365 Lisp_Object name = XCAR (acons); 365 {
366 if (XSTRING_LENGTH (name) == len && 366 Lisp_Object name = XCAR (acons);
367 !memcmp (XSTRING_DATA (name), nonreloc, len)) 367 if (XSTRING_LENGTH (name) == len &&
368 { 368 !memcmp (XSTRING_DATA (name), nonreloc, len))
369 struct gcpro gcpro1; 369 {
370 Lisp_Object val; 370 struct gcpro gcpro1;
371 371 Lisp_Object val;
372 GCPRO1 (reloc); 372
373 val = Feval (XCDR (acons)); 373 GCPRO1 (reloc);
374 UNGCPRO; 374 val = Feval (XCDR (acons));
375 375 UNGCPRO;
376 if (!NILP (val)) 376
377 return 1; 377 if (!NILP (val))
378 } 378 return 1;
379 } 379 }
380 } 380 }
381 }
382 }
381 383
382 return 0; 384 return 0;
383 } 385 }
384 386
385 /* The plague is coming. 387 /* The plague is coming.