From d437b3f6bcdf4ca2a8de80d3403b0962c074d35d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 9 Apr 1995 11:39:41 +0000 Subject: [PATCH] (list-tags): Delete call to select-tags-matched-file. --- lisp/progmodes/etags.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index b06c2743ac2..68d56bca5d3 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1396,11 +1396,8 @@ Searches only in \"tags-file-name\"." (setq file-list (tags-locate-file-in-tags-table filename (if next-match next-match nil))) (if file-list - (if (cdr file-list) - (select-tags-matched-file file-list 'extract-pos-and-tag-from-sel - 'select-file-quit) - (tags-list-functions-in-file (nth 1 (car file-list)) - (nth 2 (car file-list)))) + (tags-list-functions-in-file (nth 1 (car file-list)) + (nth 2 (car file-list))) (message (format "%s not found in tags table" filename))))) ;;;###autoload -- 2.39.5