From: tomo <tomo>
Date: Mon, 24 Apr 2006 17:14:11 +0000 (+0000)
Subject: (Fconcord_object_put): Setup index for `=FOO' feature.
X-Git-Tag: chise-base-0_23^20~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9f6729d4c3a97234034962cad66af32f97497c9e;p=chise%2Fxemacs-chise.git-

(Fconcord_object_put): Setup index for `=FOO' feature.
---

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;
 }