1 files changed, 19 insertions, 1 deletions
diff --git a/contrib/groff/grog/grog.pl b/contrib/groff/grog/grog.pl
index b131da64b236..416d5b3d7f60 100644
--- a/contrib/groff/grog/grog.pl
+++ b/contrib/groff/grog/grog.pl
@@ -47,6 +47,21 @@ sub process {
 		$soelim++ if $level;
 	    }
 	}
+	elsif (/^\.GS/) {
+	    $_ = <FILE>;
+	    if (!/^\./) {
+		$grn++;
+		$soelim++ if $level;
+	    }
+	}
+	elsif (/^\.G1/) {
+	    $_ = <FILE>;
+	    if (!/^\./) {
+		$grap++;
+		$pic++;
+		$soelim++ if $level;
+	    }
+	}
 	elsif (/^\.PS([ 0-9.<].*)?$/) {
 	    if (/^\.PS\s*<\s*(\S+)/) {
 		$pic++;
@@ -108,11 +123,14 @@ sub process {
     close(FILE);
 }
 
-if ($pic || $tbl || $eqn || $refer) {
+if ($pic || $tbl || $eqn || $grn || $grap || $refer) {
     $s = "-";
     $s .= "s" if $soelim;
     $s .= "R" if $refer;
+    # grap must be run before pic
+    $s .= "G" if $grap;
     $s .= "p" if $pic;
+    $s .= "g" if $grn;
     $s .= "t" if $tbl;
     $s .= "e" if $eqn;
     push(@command, $s);