Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 3680:efca49973324

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-11-15 21:12:13 by aidan] Add a GCPRO; move around a warn_when_safe call to make me feel better about garbage collection.
author aidan
date Wed, 15 Nov 2006 21:12:17 +0000
parents f200f93c0b69
children 01830ac74073
comparison
equal deleted inserted replaced
3679:9ea601619457 3680:efca49973324
1152 assoc = assq_no_quit (tag, 1152 assoc = assq_no_quit (tag,
1153 XVECTOR_DATA(Vcharset_tag_lists)[i]); 1153 XVECTOR_DATA(Vcharset_tag_lists)[i]);
1154 1154
1155 if (!NILP(charset_predicate)) 1155 if (!NILP(charset_predicate))
1156 { 1156 {
1157 static int line_1147_calls; 1157 struct gcpro gcpro1;
1158 ++line_1147_calls;
1159 charpres = make_vector(impossible, Qnil); 1158 charpres = make_vector(impossible, Qnil);
1159 GCPRO1 (charpres);
1160 1160
1161 /* If you want to extend the number of stages available, here 1161 /* If you want to extend the number of stages available, here
1162 in setup_charset_initial_specifier_tags, and in specifier.h 1162 in setup_charset_initial_specifier_tags, and in specifier.h
1163 is where you want to go. */ 1163 is where you want to go. */
1164 1164
1196 DEFINE_SPECIFIER_TAG_FROB (initial); 1196 DEFINE_SPECIFIER_TAG_FROB (initial);
1197 DEFINE_SPECIFIER_TAG_FROB (final); 1197 DEFINE_SPECIFIER_TAG_FROB (final);
1198 1198
1199 #undef DEFINE_SPECIFIER_TAG_FROB 1199 #undef DEFINE_SPECIFIER_TAG_FROB
1200 1200
1201 UNGCPRO;
1201 } 1202 }
1202 1203
1203 if (!NILP(assoc)) 1204 if (!NILP(assoc))
1204 { 1205 {
1205 assert(CONSP(assoc)); 1206 assert(CONSP(assoc));