From: handa <handa>
Date: Thu, 5 Jan 2006 12:38:47 +0000 (+0000)
Subject: (filter): Fix handling of such symbol as S-A.
X-Git-Tag: REL-1-3-1~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c9a6ceb278a83d0a3b587693ff26a816460a47b;p=m17n%2Fm17n-lib.git

(filter): Fix handling of such symbol as S-A.
---

diff --git a/src/input.c b/src/input.c
index 4f1bc0c..e5677f6 100644
--- a/src/input.c
+++ b/src/input.c
@@ -2712,7 +2712,8 @@ filter (MInputContext *ic, MSymbol key, void *arg)
 	      msymbol_put (key, M_key_alias, alias);
 	    }
 	}
-      else if (MSYMBOL_NAME (key)[0] == 'S'
+      else if (MSYMBOL_NAMELEN (key) == 3
+	       && MSYMBOL_NAME (key)[0] == 'S'
 	       && MSYMBOL_NAME (key)[1] == '-'
 	       && MSYMBOL_NAME (key)[2] >= 'A' && MSYMBOL_NAME (key)[2] <= 'Z')
 	msymbol_put (key, M_key_alias, one_char_symbol[(int)MSYMBOL_NAME (key)[2]]);