From cf3623c64c2288f344416115c3ebf0a2bb7c7106 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 Aug 1993 06:04:06 +0000 Subject: [PATCH] (etags-goto-tag-location): Handle selective display. --- lisp/progmodes/etags.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index e72fdb3e7cd..97ca5f816e8 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -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) -- 2.39.5