# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797427581 0
# Node ID 54e681a175d2e383ec1597adc3bf7ebc94fcd3e5
# Parent  76908dad81a4b9c33b17279b1ceb07b0a650b3ea
(list-tags): Delete call to select-tags-matched-file.

diff -r 76908dad81a4 -r 54e681a175d2 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sun Apr 09 09:42:28 1995 +0000
+++ b/lisp/progmodes/etags.el	Sun Apr 09 11:39:41 1995 +0000
@@ -1396,11 +1396,8 @@
     (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