(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 (file)
--- 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);