diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 8 |
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) |