From a3fad23d030ff035fc47cb4a2a929fad5b0d2831 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 22 Feb 2015 02:25:41 +0100
Subject: [PATCH] digraphs: mkdigraphs-vim: escape mnemonics

---
 tools/mkdigraphs-vim | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tools/mkdigraphs-vim b/tools/mkdigraphs-vim
index a94812f..5386010 100755
--- a/tools/mkdigraphs-vim
+++ b/tools/mkdigraphs-vim
@@ -7,7 +7,11 @@ vim -e -c'echo version' -cdigraphs -cq | perl -CSD -nE '
 		say "# digraphs list from vim version ", s/\s*\z//r;
 		say "+{";
 	} else { # body
-		say "q{$1} => $3," while /\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g;
+		while (/\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g) {
+			my ($mnem, $chr, $cp) = ($1, $2, $3);
+			$mnem =~ s/(?=[\\}])/\\/g;  # escape string delimiter
+			say "q{$mnem} => $cp,";
+		}
 	} END { # foot
 		say "}";
 		exit warn "only $. lines of :digraphs output\n" if $. < 6;
-- 
2.30.0