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

diff --git a/src/input.c b/src/input.c
index 4f1bc0c..e5677f6 100644 (file)
--- 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]]);