branch: externals/orderless
commit 1ccf74ffdbb0dd34caa63022e92f947c09c49c86
Author: Omar Antolín <[email protected]>
Commit: Omar Antolín <[email protected]>
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
