diff options
| author | Mark E. Shoulson <mark@kli.org> | 2017-02-28 09:05:32 -0500 |
|---|---|---|
| committer | Mark E. Shoulson <mark@kli.org> | 2017-02-28 09:05:32 -0500 |
| commit | a6419c09b6ef2c66e75e580cb9aea314e28e8721 (patch) | |
| tree | bf06849acb549f8e47ea1d4803bbe438a8518c53 /emojitrans2.pl | |
| parent | Added more emoji, including big lists of (raw) new characters from other bloc... (diff) | |
| parent | Merge branch 'master' of github.com:kragen/xcompose (diff) | |
| download | dotXCompose-a6419c09b6ef2c66e75e580cb9aea314e28e8721.tar.gz dotXCompose-a6419c09b6ef2c66e75e580cb9aea314e28e8721.tar.bz2 dotXCompose-a6419c09b6ef2c66e75e580cb9aea314e28e8721.zip | |
Merge branch 'master' of ssh://ftp.meson.org/home/mark/xcompose
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>/; } } |