Mercurial > emacs
changeset 4389:102019d30432
(etags-goto-tag-location): Handle selective display.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 01 Aug 1993 06:04:06 +0000 |
| parents | c020f9a57cfe |
| children | faf739d1d572 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Sun Aug 01 05:17:42 1993 +0000 +++ b/lisp/progmodes/etags.el Sun Aug 01 06:04:06 1993 +0000 @@ -950,7 +950,9 @@ ;; 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)