From 85102f4a122c5fdcd7f3aaf95e37cda18a273c72 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 18 Jan 2016 16:53:17 +0900 Subject: [PATCH] (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. --- src/chartab.c | 6 ++++++ 1 file changed, 6 insertions(+) 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; } -- 1.7.10.4