From: tomo Date: Tue, 7 Dec 2010 09:59:27 +0000 (+0000) Subject: (print_concord_object): Use readable form even if `print-readably' is X-Git-Tag: r21-4-22-chise-0_25-4^20~29 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c54ef31ffa4870924c0ea0c86b7e1b952934e51c;p=chise%2Fxemacs-chise.git (print_concord_object): Use readable form even if `print-readably' is nil. --- diff --git a/src/concord.c b/src/concord.c index f860af7..e68f390 100644 --- a/src/concord.c +++ b/src/concord.c @@ -375,8 +375,10 @@ print_concord_object (Lisp_Object obj, Lisp_CONCORD_Object* lcobj = XCONCORD_OBJECT (obj); struct gcpro gcpro1, gcpro2; - if (print_readably) +#if 0 + if ( print_readably ) { +#endif write_c_string ("#s(concord-object", printcharfun); write_c_string (" genre ", printcharfun); write_c_string (concord_genre_get_name (lcobj->genre), printcharfun); @@ -385,6 +387,7 @@ print_concord_object (Lisp_Object obj, print_internal (lcobj->id, printcharfun, escapeflag); UNGCPRO; write_c_string (")", printcharfun); +#if 0 } else { @@ -396,6 +399,7 @@ print_concord_object (Lisp_Object obj, UNGCPRO; write_c_string ("\">", printcharfun); } +#endif } static void