diff options
| author | Drew Adams <drew.adams@oracle.com> | 2016-04-28 19:31:43 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-28 19:31:43 +0200 |
| commit | 65797b1d75e9f608ffd50fd88be47a854b143bb1 (patch) | |
| tree | 888fadb071f62ef0429603d19d55a0b7b723bb03 /lisp/icomplete.el | |
| parent | f078ef90cbcf479053efd81e1d95e50e64da2e99 (diff) | |
| download | emacs-65797b1d75e9f608ffd50fd88be47a854b143bb1.tar.gz emacs-65797b1d75e9f608ffd50fd88be47a854b143bb1.tar.bz2 emacs-65797b1d75e9f608ffd50fd88be47a854b143bb1.zip | |
Make icomplete respect `completion-ignored-extensions'
* lisp/icomplete.el (icomplete-completions): Heed
`completion-ignored-extensions' (bug#12939).
Diffstat (limited to 'lisp/icomplete.el')
| -rw-r--r-- | lisp/icomplete.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 3b60daa9654..6a962640dea 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -388,6 +388,9 @@ matches exist." (progn ;;(debug (format "Candidates=%S field=%S" candidates name)) (format " %sNo matches%s" open-bracket close-bracket)) (if last (setcdr last nil)) + (when (and minibuffer-completing-file-name + icomplete-with-completion-tables) + (setq comps (completion-pcm--filename-try-filter comps))) (let* ((most-try (if (and base-size (> base-size 0)) (completion-try-completion |