sys-file-writer: Omit empty multiple response sets records.

[pspp-builds.git] / src / data / sys-file-writer.c

diff --git a/src/data/sys-file-writer.c b/src/data/sys-file-writer.c
index 0aeb93a0a3137bacb0fff97a0d5bf1fcfac5cac7..63e14ffb38ab5ccc0b16d3e9b1a52787e4ff5f3e 100644 (file)
--- a/src/data/sys-file-writer.c
+++ b/src/data/sys-file-writer.c
@@ -700,13 +700,15 @@ write_mrsets (struct sfm_writer *w, const struct dictionary *dict,
           const char *short_name_utf8 = var_get_short_name (mrset->vars[j], 0);
           char *short_name = recode_string (encoding, "UTF-8",
                                             short_name_utf8, -1);
+          str_lowercase (short_name);
           ds_put_format (&s, " %s", short_name);
           free (short_name);
         }
       ds_put_byte (&s, '\n');
     }
 
-  write_string_record (w, ds_ss (&s), pre_v14 ? 7 : 19);
+  if (!ds_is_empty (&s))
+    write_string_record (w, ds_ss (&s), pre_v14 ? 7 : 19);
   ds_destroy (&s);
 }