* info.el (Info-complete-menu-item): Avoid duplicates.

Fixes: debbugs:12705

2 files changed, 8 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 999db57efc0..4edf3cdd03b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,7 @@
-2012-10-29  Kevin Ryde  <user42@zip.com.au>
-
-        * woman.el (woman-parse-numeric-value): Handle picas correctly
-        (Bug#12639).
-
 2012-10-29  Chong Yidong  <cyd@gnu.org>
 
+        * info.el (Info-complete-menu-item): Avoid duplicates (Bug#12705).
+
         * startup.el (fancy-about-screen): Don't message (Bug#12680).
 
         * thingatpt.el (thing-at-point): Doc fix (Bug#12691).
@@ -14,6 +11,11 @@
         * face-remap.el (face-remap-add-relative): Handle the case where a
         face-remapping-alist entry is a cons cell (Bug#12762).
 
+2012-10-29  Kevin Ryde  <user42@zip.com.au>
+
+        * woman.el (woman-parse-numeric-value): Handle picas correctly
+        (Bug#12639).
+
 2012-10-29  Glenn Morris  <rgm@gnu.org>
 
         * emacs-lisp/cl.el (defsetf): Doc fix.
diff --git a/lisp/info.el b/lisp/info.el
index 5862e5e850f..36ffa806f04 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2646,6 +2646,7 @@ Because of ambiguities, this should be concatenated with something like
                     (while (re-search-forward pattern nil t)
                       (push (match-string-no-properties 1)
                             completions))
+                    (setq completions (delete-dups completions))
                     ;; Check subsequent nodes if applicable.
                     (or (and Info-complete-next-re
                              (setq nextnode (Info-extract-pointer "next" t))