From 1c9a6ceb278a83d0a3b587693ff26a816460a47b Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Thu, 5 Jan 2006 12:38:47 +0000
Subject: [PATCH] (filter): Fix handling of such symbol as S-A.

---
 src/input.c |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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]]);
-- 
1.7.10.4