[nongnu] elpa/bash-completion 72e9fce93d 291/313: Properly apply filter passed to the dynamic completion function.

[ELPA Syncer]

branch: elpa/bash-completion
commit 72e9fce93d3ae1979e31f9c3c53e77f0ea9e6cf9
Author: Stephane Zermatten <szermatt@gmx.net>
Commit: Stephane Zermatten <szermatt@gmx.net>

    Properly apply filter passed to the dynamic completion function.
    
    fixes #43 helm-mode was broken because it uses a predicate
---
 bash-completion.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/bash-completion.el b/bash-completion.el
index a0d54e1870..d02ccf2ef3 100644
--- a/bash-completion.el
+++ b/bash-completion.el
@@ -1580,7 +1580,12 @@ using the current Emacs completion style."
                           (setq last-error err)
                           (signal (car err) (cdr err)))))))))
           (setq last-result result)
-          (let ((filtered-result (if predicate (mapcar predicate result) 
result))
+          (let ((filtered-result (if predicate
+                                     (delq nil (mapcar
+                                                (lambda (elt)
+                                                  (when (funcall predicate 
elt) elt))
+                                                result))
+                                   result))
                 (completion-ignore-case (process-get process 
'completion-ignore-case)))
             (cond
              ((null action) (try-completion "" filtered-result))