[elpa] externals/orderless 1ccf74ffdb 200/204: Fix small bug in the alist case of try-completion

[ELPA Syncer]

branch: externals/orderless
commit 1ccf74ffdbb0dd34caa63022e92f947c09c49c86
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Fix small bug in the alist case of try-completion
---
 orderless.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/orderless.el b/orderless.el
index d24e3b554e..0719935dd9 100644
--- a/orderless.el
+++ b/orderless.el
@@ -470,7 +470,7 @@ This function is part of the `orderless' completion style."
                             (when one
                               (throw 'orderless--many (cons string point)))
                             (setq one (car args) ;; first argument is key
-                                  one (if (consp args) (car args) args) ;; 
alist
+                                  one (if (consp one) (car one) one) ;; alist
                                   one (if (symbolp one) (symbol-name one) 
one)))
                           nil))
       (when one