From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Aug 1993 06:04:06 +0000 (+0000)
Subject: (etags-goto-tag-location): Handle selective display.
X-Git-Tag: emacs-19.34~11462
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf3623c64c2288f344416115c3ebf0a2bb7c7106;p=emacs.git

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

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)