From: Francesco Potortì <pot@gnu.org>
Date: Thu, 20 Jun 2002 12:20:15 +0000 (+0000)
Subject: A bug in the new function.  No change log.
X-Git-Tag: ttn-vms-21-2-B4~14527
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74032cc3c55228b297df4d33877557a8c11e7d8b;p=emacs.git

A bug in the new function.  No change log.
---

diff --git a/lib-src/etags.c b/lib-src/etags.c
index c6eb28f3849..0edfa480675 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -1864,15 +1864,17 @@ make_tag (name, namelen, is_func, linestart, linelen, lno, cno)
      int lno;			/* line number */
      long cno;			/* character number */
 {
-  register char *cp;
-  bool named;
+  bool named = TRUE;
 
-  named = TRUE;
   if (!CTAGS)
     {
-      for (cp = name; !notinname (*cp); cp++)
-	continue;
-      if (*cp == '\0')				/* rule #1 */
+      int i;
+      register char *cp = name;
+
+      for (i = 0; i < namelen; i++)
+	if (notinname (*cp++))
+	  break;
+      if (i == namelen)				/* rule #1 */
 	{
 	  cp = linestart + linelen - namelen;
 	  if (notinname (linestart[linelen-1]))