Make icomplete respect `completion-ignored-extensions'

* lisp/icomplete.el (icomplete-completions): Heed
`completion-ignored-extensions' (bug#12939).

2 files changed, 7 insertions, 0 deletions

diff --git a/etc/NEWS b/etc/NEWS
index c7bc34fe0e3..543b3bac7a7 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -56,6 +56,10 @@ affected by this, as SGI stopped supporting IRIX in December 2013.
 
 * Changes in Emacs 25.2
 
+---
+** icomplete now respects `completion-ignored-extensions'.
+
++++
 ** Non-breaking hypens are now displayed with the `nobreak-hyphen'
 face instead of the `escape-glyph' face.
 
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