From 9f6729d4c3a97234034962cad66af32f97497c9e Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 24 Apr 2006 17:14:11 +0000
Subject: [PATCH] (Fconcord_object_put): Setup index for `=FOO' feature.

---
 src/concord.c |   10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/concord.c b/src/concord.c
index 82351d6..3549ccc 100644
--- a/src/concord.c
+++ b/src/concord.c
@@ -595,8 +595,7 @@ Return the value of OBJECT's FEATURE.
   return Qnil;
 }
 
-DEFUN ("concord-object-put",
-       Fconcord_object_put, 3, 3, 0, /*
+DEFUN ("concord-object-put", Fconcord_object_put, 3, 3, 0, /*
 Store a VALUE of OBJECT's FEATURE.
 */
        (object, feature, value))
@@ -648,6 +647,13 @@ Store a VALUE of OBJECT's FEATURE.
   status = chise_feature_sync (c_feature);
   if (status)
     return Qnil;
+  if (feature_name[0] == '=')
+    {
+      CONCORD_INDEX c_index
+	= concord_genre_get_index (c_genre, feature_name);
+
+      status = concord_index_strid_put_obj (c_index, c_value, c_obj);
+    }
   return Qt;
 }
 
-- 
1.7.10.4