branch: elpa/helm
commit 20a7088b117272e6079f55f413ab8b66b0eb9afa
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Use helm-acase in helm--prepare-completion-styles
---
helm-lib.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/helm-lib.el b/helm-lib.el
index 26c0212456..946133f7c6 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1897,8 +1897,8 @@ flex or helm-flex completion style if present."
'(basic partial-completion emacs22)
(or
styles
- (pcase (cdr (assq from helm-completion-styles-alist))
- (`(,_l . ,ll) ll))
+ (helm-acase (cdr (assq from helm-completion-styles-alist))
+ ((guard (cdr it)) guard))
;; We need to have flex always behind helm, otherwise
;; when matching against e.g. '(foo foobar foao frogo bar
;; baz) with pattern "foo" helm style if before flex will
