From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 18 Jan 2016 07:53:17 +0000 (+0900)
Subject: (Fchar_feature): When argument ATTRIBUTE is a CCS and whose name is
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=85102f4a122c5fdcd7f3aaf95e37cda18a273c72;p=chise%2Fxemacs-chise.git-

(Fchar_feature): When argument ATTRIBUTE is a CCS and whose name is
=>FOO, don't try to find =FOO; fix problem when argument ATTRIBUTE is
==>FOO.
---

diff --git a/src/chartab.c b/src/chartab.c
index 4a507f2..d0d053f 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3413,6 +3413,7 @@ Return DEFAULT-VALUE if the value is not exist.
   if (!UNBOUNDP (ret))
     return ret;
 
+#if 0
   if (NILP (feature_rel_max)
       || (INTP (feature_rel_max) &&
 	  XINT (feature_rel_max) > 0))
@@ -3437,6 +3438,7 @@ Return DEFAULT-VALUE if the value is not exist.
 	    return ret;
 	}
     }
+#endif
 
   if ( !(EQ (attribute, Q_identical)) &&
        !(EQ (attribute, Q_subsumptive_from)) &&
@@ -3445,11 +3447,13 @@ Return DEFAULT-VALUE if the value is not exist.
 	  || (INTP (char_rel_max) &&
 	      XINT (char_rel_max) > 0)) ) )
     {
+#if 0
       Lisp_String* name = symbol_name (XSYMBOL (attribute));
       Bufbyte *name_str = string_data (name);
 
       if ( (name_str[0] != '=') || (name_str[1] == '>') )
 	{
+#endif
 	  ret = find_char_feature_in_family (character, Q_identical,
 					     attribute, feature_rel_max);
 	  if (!UNBOUNDP (ret))
@@ -3464,7 +3468,9 @@ Return DEFAULT-VALUE if the value is not exist.
 					     attribute, feature_rel_max);
 	  if (!UNBOUNDP (ret))
 	    return ret;
+#if 0
 	}
+#endif
     }
   return default_value;
 }