diff options
author | Mark E. Shoulson <mark@kli.org> | 2017-03-16 10:56:36 -0400 |
---|---|---|
committer | Mark E. Shoulson <mark@kli.org> | 2017-03-16 10:56:36 -0400 |
commit | fde94fa80a46e7bfe291dd03ed2bfaa69792d59c (patch) | |
tree | 0ad9a2d482b8fb23951f74090ea272128eb7c89c /emojitrans2.pl | |
parent | Merge branch 'master' of ssh://ftp.meson.org/home/mark/xcompose (diff) | |
parent | Fixed some comments. Added just 2 or 3 new chars. (diff) | |
download | dotXCompose-fde94fa80a46e7bfe291dd03ed2bfaa69792d59c.tar.gz dotXCompose-fde94fa80a46e7bfe291dd03ed2bfaa69792d59c.tar.bz2 dotXCompose-fde94fa80a46e7bfe291dd03ed2bfaa69792d59c.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 c978b7e..27ee545 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -29,6 +29,7 @@ BEGIN { binmode(STDOUT, ":utf8"); '{' => 'braceleft', '}' => 'braceright', "'" => 'apostrophe', + '"' => 'quotedbl', '\\' => 'backslash', ':' => 'colon', ';' => 'semicolon', @@ -59,7 +60,7 @@ unless (/^#/) { my $hold=$_; s/<M_>/<Multi_key>/; s/<MM>/<Multi_key> <Multi_key>/; - s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?!/|'\\~*{}♫-]+)})(splitup($1))e; + s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?!/|'"\\~*{}♫-]+)})(splitup($1))e; if (length($1) > 7) { $_=$hold; s/^<M([M_])>/### <M$1>/; |