Mercurial > hg > xemacs-beta
diff src/lread.c @ 181:bfd6434d15b3 r20-3b17
Import from CVS: tag r20-3b17
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:53:19 +0200 |
parents | 8eaf7971accc |
children | 3d6bfa290dbd |
line wrap: on
line diff
--- a/src/lread.c Mon Aug 13 09:52:21 2007 +0200 +++ b/src/lread.c Mon Aug 13 09:53:19 2007 +0200 @@ -1174,10 +1174,10 @@ -- byte-compilation of a .el file into a .elc file. `locate-file' will primarily get confused if you add a file that shadows -(i.e. has the same name as) another file further down in the directory list. +\(i.e. has the same name as) another file further down in the directory list. In this case, you must call `locate-file-clear-hashing'. */ -(path)) + (path)) { Lisp_Object pathtail; @@ -2731,10 +2731,7 @@ s.terminator = terminator; GCPRO2 (s.head, s.tail); - (void) sequence_reader (readcharfun, - terminator, - &s, - read_list_conser); + sequence_reader (readcharfun, terminator, &s, read_list_conser); #ifdef COMPILED_FUNCTION_ANNOTATION_HACK Vcurrent_compiled_function_annotation = old_compiled_function_annotation; #endif @@ -2819,17 +2816,14 @@ struct read_list_state s; struct gcpro gcpro1, gcpro2; - s.head = Qnil; s.tail = Qnil; s.length = 0; s.allow_dotted_lists = 0; GCPRO2 (s.head, s.tail); - (void) sequence_reader (readcharfun, - terminator, - &s, - read_list_conser); + sequence_reader (readcharfun, terminator, &s, read_list_conser); + UNGCPRO; tem = s.head; len = XINT (Flength (tem));