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

Fixes: debbugs:12705

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 999db57..4edf3cd 100644 (file)
--- 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 5862e5e..36ffa80 100644 (file)
--- 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))