aboutsummaryrefslogtreecommitdiff
path: root/emojitrans2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-xemojitrans2.pl3
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>/;
}
}