From: Michaël Cadilhac <michael.cadilhac@lrde.org>
Date: Wed, 7 Mar 2007 12:50:23 +0000 (+0000)
Subject: (PC-do-completion): Delete duplicates in the list of possible completions.
X-Git-Tag: emacs-pretest-22.0.96~215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85066604f006821a45bf2cfec3df9bcddf380aa1;p=emacs.git

(PC-do-completion): Delete duplicates in the list of possible completions.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d64589405df..807151bc250 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-07  Micha,Ak(Bl Cadilhac  <michael@cadilhac.name>
+
+	* complete.el (PC-do-completion): Delete duplicates in the list of
+	possible completions.
+
 2007-03-07  Glenn Morris  <rgm@gnu.org>
 
 	* ses.el (ses-mode): Doc fix.
diff --git a/lisp/complete.el b/lisp/complete.el
index b56dc268c04..5b77f49ebdf 100644
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -560,6 +560,9 @@ of `minibuffer-completion-table' and the minibuffer contents.")
 		   (setq poss (cons (car p) poss))))
 	    (setq p (cdr p)))))
 
+      ;; If table had duplicates, they can be here.
+      (delete-dups poss)
+
       ;; Handle completion-ignored-extensions
       (and filename
            (not (eq mode 'help))