Commit d437b3f6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 5eabb4e7
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment