From 329c48d8b26a8943ee47682916f83f4fb60f608e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 29 Oct 2012 18:42:58 +0800 Subject: [PATCH] * info.el (Info-complete-menu-item): Avoid duplicates. Fixes: debbugs:12705 --- lisp/ChangeLog | 12 +++++++----- lisp/info.el | 1 + 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 - - * woman.el (woman-parse-numeric-value): Handle picas correctly - (Bug#12639). - 2012-10-29 Chong Yidong + * 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 + + * woman.el (woman-parse-numeric-value): Handle picas correctly + (Bug#12639). + 2012-10-29 Glenn Morris * 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)) -- 2.39.2