Mercurial > hg > xemacs-beta
changeset 2567:bbc3231c4812
[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 | 045f20e1c3af |
| children | 1ca50d26eaf2 |
| files | src/ChangeLog src/lread.c |
| diffstat | 2 files changed, 28 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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; }