From: Drew Adams <drew.adams@oracle.com>
Date: Thu, 28 Apr 2016 17:31:43 +0000 (+0200)
Subject: Make icomplete respect `completion-ignored-extensions'
X-Git-Tag: emacs-26.0.90~2123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65797b1d75e9f608ffd50fd88be47a854b143bb1;p=emacs.git

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 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