From: tomo <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