Mercurial > hg > xemacs-beta

comparison src/file-coding.c @ 5143:186aebf7f6c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sat, 13 Mar 2010 11:38:54 -0600
parents f965e31a35f0
children 6c6d78781d59
comparison
equal deleted inserted replaced
5140:e5380fdaf8f1 5143:186aebf7f6c6
295 print_coding_system (Lisp_Object obj, Lisp_Object printcharfun, 295 print_coding_system (Lisp_Object obj, Lisp_Object printcharfun,
296 int UNUSED (escapeflag)) 296 int UNUSED (escapeflag))
297 { 297 {
298 Lisp_Coding_System *c = XCODING_SYSTEM (obj); 298 Lisp_Coding_System *c = XCODING_SYSTEM (obj);
299 if (print_readably) 299 if (print_readably)
300 printing_unreadable_lcrecord (obj, 0); 300 printing_unreadable_lisp_object (obj, 0);
301 301
302 write_fmt_string_lisp (printcharfun, "#<coding-system %s ", 1, c->name); 302 write_fmt_string_lisp (printcharfun, "#<coding-system %s ", 1, c->name);
303 print_coding_system_properties (obj, printcharfun); 303 print_coding_system_properties (obj, printcharfun);
304 write_ascstring (printcharfun, ">"); 304 write_ascstring (printcharfun, ">");
305 } 305 }