Make the `i' command in Info-mode remove duplicate matches

* lisp/info.el (Info-index): Weed out duplicate matched
(bug#3692).

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/info.el b/lisp/info.el
index cdf339ff6fb..83a9bfbc235 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3375,7 +3375,13 @@ Give an empty topic name to go to the Index node itself."
             (setq exact (cons found exact)
                   matches (delq found matches)))
           (setq Info-history-list ohist-list)
-          (setq Info-index-alternatives (nconc exact (nreverse matches)))
+          (setq Info-index-alternatives
+                ;; Weed out index entries that refer to the same line.
+                (seq-uniq
+                 (nconc exact (nreverse matches))
+                 (lambda (m1 m2)
+                   (and (equal (nth 1 m1) (nth 1 m2))
+                        (equal (nth 3 m1) (nth 3 m2))))))
           (Info-index-next 0)))))
 
 (defun Info-index-next (num)