1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 15181e899d7..c5d39891dbc 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -146,9 +146,9 @@ File names returned are absolute."
        (setq tagname last-tag))
      (setq last-tag tagname)
      (while (progn
-               (if (not (search-forward
+               (if (not (if exact
-                         (if exact (concat tagname "(") tagname)
+                            (re-search-forward (concat "\\W" tagname "\\W") nil t)
-                         nil t))
+                          (search-forward tagname nil t)))
                   (error "No %sentries containing %s"
                          (if next "more " "") tagname))
               (not (looking-at "[^\n\177]*\177"))))

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 15181e899d7..c5d39891dbc 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el
@@ -146,9 +146,9 @@ File names returned are absolute."
146	(setq tagname last-tag))	146	(setq tagname last-tag))
147	(setq last-tag tagname)	147	(setq last-tag tagname)
148	(while (progn	148	(while (progn
149	(if (not (search-forward	149	(if (not (if exact
150	(if exact (concat tagname "(") tagname)	150	(re-search-forward (concat "\\W" tagname "\\W") nil t)
151	nil t))	151	(search-forward tagname nil t)))
152	(error "No %sentries containing %s"	152	(error "No %sentries containing %s"
153	(if next "more " "") tagname))	153	(if next "more " "") tagname))
154	(not (looking-at "[^\n\177]*\177"))))	154	(not (looking-at "[^\n\177]*\177"))))