branch: externals/orderless
commit c615334c79660a5e6876ee6147740eef56824320
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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
