From: tomo <tomo>
Date: Sun, 5 Dec 2010 13:56:01 +0000 (+0000)
Subject: (print_concord_object): Don't display location of data-source when
X-Git-Tag: r21-4-22-chise-0_25-4^20~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=562bb40b5c738a70d70f925ab3a2189975a365e1;p=chise%2Fxemacs-chise.git

(print_concord_object): Don't display location of data-source when
`print-readably' is nil.
---

diff --git a/src/concord.c b/src/concord.c
index fff4b5c..f860af7 100644
--- a/src/concord.c
+++ b/src/concord.c
@@ -389,10 +389,6 @@ print_concord_object (Lisp_Object obj,
   else
     {
       write_c_string ("#<concord-object \"", printcharfun);
-      write_c_string (concord_ds_location
-		      (concord_genre_get_data_source (lcobj->genre)),
-		      printcharfun);
-      write_c_string (":", printcharfun);
       write_c_string (concord_genre_get_name (lcobj->genre), printcharfun);
       write_c_string (";", printcharfun);
       GCPRO2 (obj, printcharfun);