*** empty log message ***

* empty log message *
a7a50f69 · Eric S. Raymond · ff704742 · a7a50f69
Commit a7a50f69 authored Dec 09, 1991 by Eric S. Raymond
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/progmodes/etags.el lisp/progmodes/etags.el +3 -3

No files found.
--- 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 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"))))