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

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index b06c2743ac2035773cb4314a099ff9db48314797..68d56bca5d3396fa28b2e3e83d7c59ce303a9c67 100644 (file)
--- 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