From 19c513019dcc864c0a039b1e4affe4f6eef21f46 Mon Sep 17 00:00:00 2001
From: Mark Shoulson <mark@kli.org>
Date: Wed, 8 Mar 2017 10:31:21 -0500
Subject: Fixed some comments.  Added just 2 or 3 new chars.

---
 emojitrans2.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'emojitrans2.pl')

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>/;
-- 
cgit v1.2.3