diff options
author | Mark Shoulson <mark@kli.org> | 2017-02-19 19:33:35 -0500 |
---|---|---|
committer | Mark Shoulson <mark@kli.org> | 2017-02-19 19:39:01 -0500 |
commit | f4456d1b08c6b714d6f9d07363e8d054c659c85c (patch) | |
tree | 063acea2a62b0747b2842efc35c352a5503fb10b /emojitrans2.pl | |
parent | Added more emoji, including big lists of (raw) new characters from other bloc... (diff) | |
download | dotXCompose-f4456d1b08c6b714d6f9d07363e8d054c659c85c.tar.gz dotXCompose-f4456d1b08c6b714d6f9d07363e8d054c659c85c.tar.bz2 dotXCompose-f4456d1b08c6b714d6f9d07363e8d054c659c85c.zip |
Add parens.compose.
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>/; } } |