[elpa] externals/orderless c8731aacfa 197/204: Merge pull request #98 from minad/fix-try

[ELPA Syncer]

branch: externals/orderless
commit c8731aacfaa92aceda0a2c060c78a75a6b443874
Merge: 8cea82b6d3 c615334c79
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #98 from minad/fix-try
    
    Fix orderless-try-completion for hash tables and alists
---
 orderless.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/orderless.el b/orderless.el
index 9250756688..d24e3b554e 100644
--- a/orderless.el
+++ b/orderless.el
@@ -464,11 +464,14 @@ This function is part of the `orderless' completion 
style."
       ;; Should be more or less allocation-free since our "predicate"
       ;; always returns nil.
       (orderless-filter string table
-                        (lambda (str)
-                          (when (or (not pred) (funcall pred str))
+                        ;; key/value for hash tables
+                        (lambda (&rest args)
+                          (when (or (not pred) (apply pred args))
                             (when one
                               (throw 'orderless--many (cons string point)))
-                            (setq one str))
+                            (setq one (car args) ;; first argument is key
+                                  one (if (consp args) (car args) args) ;; 
alist
+                                  one (if (symbolp one) (symbol-name one) 
one)))
                           nil))
       (when one
         (if (equal string one)