fix ampersands in group names in generated binding files

1 files changed, 5 insertions, 2 deletions

diff --git a/tools/fmt-bindings b/tools/fmt-bindings
index 351368fb55..d2dd1adfca 100755
--- a/tools/fmt-bindings
+++ b/tools/fmt-bindings
@@ -280,9 +280,12 @@ while (<SOURCE>) {
 		$b =~ s/SECONDARY/Secondary-/;
 		$b =~ s/TERTIARY/Tertiary-/;
 		$b =~ s/LEVEL4/Level4-/;
-		
+
+		$g = $group_names{$gkey};
+		$g =~ s/\\&/&amp;/g;
+
 		$bref = $owner_bindings{$owner};
-		push (@$bref, [ $action, $b, $group_names{$gkey} ]);
+		push (@$bref, [ $action, $b, $g]);
 	    }
 	}