Fix orderless-try-completion for hash tables and alists

1 files changed, 8 insertions, 3 deletions

diff --git a/orderless.el b/orderless.el
index 9250756..09ef368 100644
--- a/orderless.el
+++ b/orderless.el
@@ -464,11 +464,16 @@ 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 (pcase-exhaustive args
+                                        (`((,key . ,_val)) key) ;; alists
+                                        (`(,str) str) ;; strings/symbols
+                                        (`(,key ,_val) key)) ;; hash tables
+                                  one (if (symbolp one) (symbol-name one) one)))
                           nil))
       (when one
         (if (equal string one)