* while loop. */
}
}
- /* Try a range like 'a-x' or '\t-z' */
- if (*regparse == '-')
+ /* Try a range like 'a-x' or '\t-z'. Also allows '-' as a
+ * start character. */
+ if (*regparse == '-' && oldstartc != -1)
{
emit_range = TRUE;
startc = oldstartc;
/* Normal printable char */
if (startc == -1)
-#ifdef FEAT_MBYTE
- startc = (*mb_ptr2char)(regparse);
-#else
- startc = *regparse;
-#endif
+ startc = PTR2CHAR(regparse);
/* Previous char was '-', so this char is end of range. */
if (emit_range)
{
- endc = startc; startc = oldstartc;
+ endc = startc;
+ startc = oldstartc;
if (startc > endc)
EMSG_RET_FAIL(_(e_invrange));
#ifdef FEAT_MBYTE
TRY_NEG();
EMIT_GLUE();
}
- emit_range = FALSE;
}
else
#endif
TRY_NEG();
EMIT_GLUE();
}
- emit_range = FALSE;
}
+ emit_range = FALSE;
+ startc = -1;
}
else
{
:call add(tl, [2, '\_[0-9]\+', "asfi\n9888u", "\n9888"])
:call add(tl, [2, '\_f', " \na ", "\n"])
:call add(tl, [2, '\_f\+', " \na ", "\na"])
+:call add(tl, [2, '[0-9A-Za-z-_.]\+', " @0_a.A-{ ", "0_a.A-"])
:"
:"""" Test start/end of line, start/end of file
:call add(tl, [2, '^a.', "a_\nb ", "a_"])