+2010-02-20 Kevin Ryde <user42@zip.com.au>
+
+ * etags.c (Scheme_functions): Don't loop past a null character
+ (Bug#5601).
+
2010-01-29 Kester Habermann <kester@linuxtag.org> (tiny change)
* etags.c (Fortran_functions): Handle recursive keyword
if (strneq (bp, "(def", 4) || strneq (bp, "(DEF", 4))
{
bp = skip_non_spaces (bp+4);
- /* Skip over open parens and white space */
- while (notinname (*bp))
+ /* Skip over open parens and white space. Don't continue past
+ '\0'. */
+ while (*bp && notinname (*bp))
bp++;
get_tag (bp, NULL);
}