diff options
| author | Michaël Cadilhac | 2007-03-07 12:50:23 +0000 |
|---|---|---|
| committer | Michaël Cadilhac | 2007-03-07 12:50:23 +0000 |
| commit | 85066604f006821a45bf2cfec3df9bcddf380aa1 (patch) | |
| tree | c9147f6b39a1a9863804070a8fe3da08efcd2e3c /lisp/complete.el | |
| parent | e27dad25bb1ff5e94c245dd615b3adbfbf43c196 (diff) | |
| download | emacs-85066604f006821a45bf2cfec3df9bcddf380aa1.tar.gz emacs-85066604f006821a45bf2cfec3df9bcddf380aa1.zip | |
(PC-do-completion): Delete duplicates in the list of possible completions.
Diffstat (limited to 'lisp/complete.el')
| -rw-r--r-- | lisp/complete.el | 3 |
1 files changed, 3 insertions, 0 deletions
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.") | |||
| 560 | (setq poss (cons (car p) poss)))) | 560 | (setq poss (cons (car p) poss)))) |
| 561 | (setq p (cdr p))))) | 561 | (setq p (cdr p))))) |
| 562 | 562 | ||
| 563 | ;; If table had duplicates, they can be here. | ||
| 564 | (delete-dups poss) | ||
| 565 | |||
| 563 | ;; Handle completion-ignored-extensions | 566 | ;; Handle completion-ignored-extensions |
| 564 | (and filename | 567 | (and filename |
| 565 | (not (eq mode 'help)) | 568 | (not (eq mode 'help)) |