diff options
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-x | emojitrans2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl index b18fb3a..c978b7e 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -57,10 +57,11 @@ sub splitup { unless (/^#/) { my $hold=$_; + s/<M_>/<Multi_key>/; s/<MM>/<Multi_key> <Multi_key>/; s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?!/|'\\~*{}♫-]+)})(splitup($1))e; if (length($1) > 7) { $_=$hold; - s/^<MM>/### <MM>/; + s/^<M([M_])>/### <M$1>/; } } |