Commit cf3623c6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(etags-goto-tag-location): Handle selective display.

parent b70af8d7
......@@ -950,7 +950,9 @@ See documentation of variable `tags-file-name'."
;; costs about as much as searching 2000 chars.
(offset 1000)
(found nil)
(pat (concat "^" (regexp-quote (car tag-info)))))
(pat (concat (if (eq selective-display t)
"\\(^\\|\^m\\)" "^")
(regexp-quote (car tag-info)))))
(or startpos
(setq startpos (point-min)))
(while (and (not found)
......
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