From 562bb40b5c738a70d70f925ab3a2189975a365e1 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 5 Dec 2010 13:56:01 +0000
Subject: [PATCH] (print_concord_object): Don't display location of
 data-source when `print-readably' is nil.

---
 src/concord.c |    4 ----
 1 file changed, 4 deletions(-)

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);
-- 
1.7.10.4