From: tomo <tomo>
Date: Fri, 19 Sep 2008 08:39:30 +0000 (+0000)
Subject: (Fconcord_object_put): Check argument FEATURE is a symbol.
X-Git-Tag: r21-4-21-chise-0_24-5^20~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=24f6d37d1498edf72cf96aa56bad0813e5f173c8;p=chise%2Fxemacs-chise.git.1

(Fconcord_object_put): Check argument FEATURE is a symbol.
---

diff --git a/src/concord.c b/src/concord.c
index 06dc3b5..faab23c 100644
--- a/src/concord.c
+++ b/src/concord.c
@@ -1,5 +1,5 @@
 /* XEmacs routines to deal with CONCORD.
-   Copyright (C) 2005,2006 MORIOKA Tomohiko
+   Copyright (C) 2005,2006,2008 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -718,6 +718,7 @@ Store a VALUE of OBJECT's FEATURE.
   Bufbyte *name_str;
 
   CHECK_CONCORD_OBJECT (object);
+  CHECK_SYMBOL (feature);
   name = symbol_name (XSYMBOL (feature));
   name_str = string_data (name);
   if ( NILP (concord_object_put (object, feature, value)) )