Make icomplete respect `completion-ignored-extensions'

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

diff --git a/etc/NEWS b/etc/NEWS
index c7bc34fe0e319ef3df26f6106c7a9e0936014602..543b3bac7a730c4a8a9177150d435d8079a362f3 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -56,6 +56,10 @@ affected by this, as SGI stopped supporting IRIX in December 2013.
 \f
 * 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 3b60daa965412ef11dbe0fdee4486c13533024b5..6a962640dea67b779f6fafcdf73a574961e10f51 100644 (file)
--- 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