# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 692252924 0
# Node ID ba75c4326ca815703c0c63482f8bd0e023565d29
# Parent  1eb88445014d1758a8f0968e28200449ccb64134
*** empty log message ***

diff -r 1eb88445014d -r ba75c4326ca8 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sun Dec 08 19:30:02 1991 +0000
+++ b/lisp/progmodes/etags.el	Mon Dec 09 04:28:44 1991 +0000
@@ -146,9 +146,9 @@
 	(setq tagname last-tag))
       (setq last-tag tagname)
       (while (progn
-	       (if (not (search-forward
-			 (if exact (concat tagname "(") tagname)
-			 nil t))
+	       (if (not (if exact
+			    (re-search-forward (concat "\\W" tagname "\\W") nil t)
+			  (search-forward tagname nil t)))
 		   (error "No %sentries containing %s"
 			  (if next "more " "") tagname))
 	       (not (looking-at "[^\n\177]*\177"))))