Index: lisp/complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/complete.el,v
retrieving revision 1.58
diff -c -r1.58 complete.el
*** lisp/complete.el	5 Dec 2006 05:53:57 -0000	1.58
--- lisp/complete.el	4 Jan 2007 12:39:24 -0000
***************
*** 553,558 ****
--- 553,561 ----
  		   (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))
Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.10526
diff -C0 -r1.10526 ChangeLog
*** lisp/ChangeLog	3 Jan 2007 20:17:09 -0000	1.10526
--- lisp/ChangeLog	4 Jan 2007 12:39:45 -0000
***************
*** 0 ****
--- 1,5 ----
+ 2007-01-04  Michaël Cadilhac  <michael.cadilhac@lrde.org>
+ 
+ 	* complete.el (PC-do-completion): Delete duplicates in the list of
+ 	possible completions.
+