Assorted improvements to diagnostics.

[pspp] / src / language / dictionary / split-file.c

diff --git a/src/language/dictionary/split-file.c b/src/language/dictionary/split-file.c
index 8a134e1e769eca5562e57e31febb49b9c29b03d0..13eecbb4ce358ffd1d8ad2a7c6c61556343e8fa3 100644 (file)
--- a/src/language/dictionary/split-file.c
+++ b/src/language/dictionary/split-file.c
@@ -55,13 +55,16 @@ cmd_split_file (struct lexer *lexer, struct dataset *ds)
                               : SPLIT_LAYERED);
 
       lex_match (lexer, T_BY);
+      int vars_start = lex_ofs (lexer);
       if (!parse_variables (lexer, dataset_dict (ds), &v, &n, PV_NO_DUPLICATE))
        return CMD_CASCADING_FAILURE;
+      int vars_end = lex_ofs (lexer) - 1;
 
       if (n > MAX_SPLITS)
         {
           verify (MAX_SPLITS == 8);
-          msg (SE, _("At most 8 split variables may be specified."));
+          lex_ofs_error (lexer, vars_start, vars_end,
+                         _("At most 8 split variables may be specified."));
           free (v);
           return CMD_CASCADING_FAILURE;
         }