(render_strip) Fix bug that sometimes caused joined text in joined

[pspp] / src / set.q

diff --git a/src/set.q b/src/set.q
index c4f80326b905f95507e34a65eb19cd8f961a03f1..89d7ce2c494fb05a4f07b19793ded7a20e86bf29 100644 (file)
--- a/src/set.q
+++ b/src/set.q
@@ -114,6 +114,7 @@ int set_safer;
 int set_scompression;
 int set_screen;
 long set_seed;
+int set_seed_used;
 int set_testing_mode;
 int set_undefined;
 int set_viewlength;
@@ -616,6 +617,7 @@ stc_custom_seed (struct cmd_set *cmd unused)
       set_seed = tokval;
       lex_get ();
     }
+  set_seed_used=1;
   return 1;
 }