[elpa] externals/orderless c615334c79 196/204: Simplify

[ELPA Syncer]

branch: externals/orderless
commit c615334c79660a5e6876ee6147740eef56824320
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Simplify
---
 orderless.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/orderless.el b/orderless.el
index 09ef368f81..d24e3b554e 100644
--- a/orderless.el
+++ b/orderless.el
@@ -469,10 +469,8 @@ This function is part of the `orderless' completion style."
                           (when (or (not pred) (apply pred args))
                             (when one
                               (throw 'orderless--many (cons string point)))
-                            (setq one (pcase-exhaustive args
-                                        (`((,key . ,_val)) key) ;; alists
-                                        (`(,str) str) ;; strings/symbols
-                                        (`(,key ,_val) key)) ;; hash tables
+                            (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