From f4456d1b08c6b714d6f9d07363e8d054c659c85c Mon Sep 17 00:00:00 2001
From: Mark Shoulson <mark@kli.org>
Date: Sun, 19 Feb 2017 19:33:35 -0500
Subject: Add parens.compose.

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

(limited to 'emojitrans2.pl')

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