(list-tags): Delete call to select-tags-matched-file.

1 files 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