Add EPSF magic header to doc/lispintro/*.eps. (Bug#7064)

[gnu-emacs] / lib-src / etags.c

diff --git a/lib-src/etags.c b/lib-src/etags.c
index 2715df8b5ccfe1760c67f85eebb5ced6812e2448..17aad9a225296e96be2d113d91e5c0870073f5de 100644 (file)
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -5004,8 +5004,9 @@ Scheme_functions (inf)
       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);
        }