diff options
| -rw-r--r-- | orderless.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/orderless.el b/orderless.el index 09ef368..d24e3b5 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 |