Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 4990:8f0cf4fd3d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automatic merge
author Ben Wing <ben@xemacs.org>
date Sat, 06 Feb 2010 04:01:46 -0600
parents 16112448d484
children ae48681c47fa
comparison
equal deleted inserted replaced
4989:d2ec55325515 4990:8f0cf4fd3d2c
283 specbind (Qprint_length, make_int (5)); 283 specbind (Qprint_length, make_int (5));
284 #endif 284 #endif
285 the_specs = Fspecifier_specs (obj, Qglobal, Qnil, Qnil); 285 the_specs = Fspecifier_specs (obj, Qglobal, Qnil, Qnil);
286 if (NILP (the_specs)) 286 if (NILP (the_specs))
287 /* there are no global specs */ 287 /* there are no global specs */
288 write_c_string (printcharfun, "<unspecified>"); 288 write_ascstring (printcharfun, "<unspecified>");
289 else 289 else
290 print_internal (the_specs, printcharfun, 1); 290 print_internal (the_specs, printcharfun, 1);
291 if (!NILP (sp->fallback)) 291 if (!NILP (sp->fallback))
292 { 292 {
293 write_fmt_string_lisp (printcharfun, " fallback=%S", 1, sp->fallback); 293 write_fmt_string_lisp (printcharfun, " fallback=%S", 1, sp->fallback);
302 { 302 {
303 Lisp_Specifier *sp = (Lisp_Specifier *) header; 303 Lisp_Specifier *sp = (Lisp_Specifier *) header;
304 /* don't be snafued by the disksave finalization. */ 304 /* don't be snafued by the disksave finalization. */
305 if (!for_disksave && !GHOST_SPECIFIER_P(sp) && sp->caching) 305 if (!for_disksave && !GHOST_SPECIFIER_P(sp) && sp->caching)
306 { 306 {
307 xfree (sp->caching, struct specifier_caching *); 307 xfree (sp->caching);
308 sp->caching = 0; 308 sp->caching = 0;
309 } 309 }
310 } 310 }
311 #endif /* not NEW_GC */ 311 #endif /* not NEW_GC */
312 312