Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 4959:bd169a24a554

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 28 Jan 2010 04:27:30 -0600
parents 19a72041c5ed
children e813cf16c015
comparison
equal deleted inserted replaced
4893:99f2102552d7 4959:bd169a24a554
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);