[nongnu] elpa/helm fa00e14c42 1/2: Use helm-acase in helm-help-org-cycle

[ELPA Syncer]

branch: elpa/helm
commit fa00e14c42aa0403d08d4c9f90006ade8b04ade3
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Use helm-acase in helm-help-org-cycle
---
 helm-lib.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index f7fea24094..a62617aa87 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -761,9 +761,9 @@ displayed in BUFNAME."
 
 (defun helm-help-org-cycle ()
   "Runs `org-cycle' in `helm-help'."
-  (pcase (helm-iter-next helm-help--iter-org-state)
-    ((pred numberp) (org-content))
-    ((and state) (org-cycle state))))
+  (helm-acase (helm-iter-next helm-help--iter-org-state)
+    ((guard (numberp it)) (org-content))
+    (t (org-cycle it))))
 
 (defun helm-help-copy-region-as-kill ()
   "Copy region function for `helm-help'"