X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=blobdiff_plain;f=generate;h=351926b80751b7f78ba4d95e3dbc7839fa6913ed;hp=c17d5f7d70e3ae848b84a6df77498108a4b6e1f0;hb=c6e0abe539310d9c3a612dd92f59d106aa8674c7;hpb=e637ec96e688439ca41a25fb09e11a958180ba75

diff --git a/generate b/generate
index c17d5f7..351926b 100755
--- a/generate
+++ b/generate
@@ -176,9 +176,6 @@ sub process_input_mk ($$$$$$$$) {
 	    } elsif (s{^![ \t]+}{}) {
 		o $_;
 		$_ = '';
-	    } elsif (s{^!(\S+)(?:[ \t]+|$)}{}) {
-		$$esclitr = $1;
-		$set_esc->();
 	    } else {
 		die "bad escape $$esclitr$_ ";
 	    }
@@ -192,6 +189,9 @@ sub process_input_mk ($$$$$$$$) {
 				 $var_prefix, $targets,
 				 $subf, $esclitr, $1);
 		o "\n";
+	    } elsif (m#^changequote\s+(\S+)\s+$#) {
+		$$esclitr = $1;
+		$set_esc->();
 	    } else {
 		die "unknown directive $_ ";
 	    }