[Emacs-diffs] /srv/bzr/emacs/trunk r99540: * etags.c (Scheme_functions): Don't loop past a null character (Bug#5601).

[Chong Yidong]

------------------------------------------------------------
revno: 99540
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2010-02-20 09:11:20 -0500
message:
  * etags.c (Scheme_functions): Don't loop past a null character (Bug#5601).
modified:
  lib-src/ChangeLog
  lib-src/etags.c

=== modified file 'lib-src/ChangeLog'
--- a/lib-src/ChangeLog 2010-01-29 19:14:26 +0000
+++ b/lib-src/ChangeLog 2010-02-20 14:11:20 +0000
@@ -1,3 +1,8 @@
+2010-02-20  Kevin Ryde  <address@hidden>
+
+       * etags.c (Scheme_functions): Don't loop past a null character
+       (Bug#5601).
+
 2010-01-29  Kester Habermann  <address@hidden>  (tiny change)
 
        * etags.c (Fortran_functions): Handle recursive keyword

=== modified file 'lib-src/etags.c'
--- a/lib-src/etags.c   2010-01-29 19:13:13 +0000
+++ b/lib-src/etags.c   2010-02-20 14:11:20 +0000
@@ -5004,8 +5004,9 @@
       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);
        }