Commit a7a50f69 authored by Eric S. Raymond's avatar Eric S. Raymond

*** empty log message ***

parent ff704742
......@@ -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"))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment