[nongnu] elpa/helm d290f3adcc 6/6: Use helm-acase in more places

[ELPA Syncer]

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

    Use helm-acase in more places
---
 helm-files.el | 20 ++++++++++----------
 helm-lib.el   |  6 +++---
 helm-mode.el  |  2 +-
 3 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 07bbc4e2e3..a69036f9b6 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1318,11 +1318,11 @@ ACTION can be `rsync' or any action supported by 
`helm-dired-action'."
         (mapconcat 'identity infos " ")
       (setq info
             (mapconcat (lambda (x)
-                         (pcase x
-                           ('size    (nth 0 infos))
-                           ('percent (nth 1 infos))
-                           ('speed   (nth 2 infos))
-                           ('remain  (nth 3 infos))))
+                         (helm-acase x
+                           (size    (nth 0 infos))
+                           (percent (nth 1 infos))
+                           (speed   (nth 2 infos))
+                           (remain  (nth 3 infos))))
                        (helm-mklist helm-ff-rsync-progress-bar-info)
                        ", "))
       (when (string-match "\\([0-9]+\\)%" progbar)
@@ -6326,11 +6326,11 @@ be directories."
                                    (helm-basename file) dest)))
                for overwrite = (or (null exists)
                                    yes-for-all
-                                   (pcase (helm-read-answer
-                                           (format
-                                            "File `%s' already-exists, 
overwrite (y,n,!,q) ? "
-                                            dest-file)
-                                           '("y" "n" "!" "q"))
+                                   (helm-acase (helm-read-answer
+                                                (format
+                                                 "File `%s' already-exists, 
overwrite (y,n,!,q) ? "
+                                                 dest-file)
+                                                '("y" "n" "!" "q"))
                                      ("y" t)
                                      ("n" nil)
                                      ("!" (prog1 t
diff --git a/helm-lib.el b/helm-lib.el
index eb4dcb20a9..019bc84d88 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1302,9 +1302,9 @@ differently depending of answer:
       (dolist (elm list)
         (if dont-ask
             (funcall action elm)
-          (pcase (helm-read-answer
-                  (format (concat prompt "[y,n,!,q]") elm)
-                  '("y" "n" "!" "q"))
+          (helm-acase (helm-read-answer
+                       (format (concat prompt "[y,n,!,q]") elm)
+                       '("y" "n" "!" "q"))
             ("y" (funcall action elm))
             ("n" (ignore))
             ("!" (prog1
diff --git a/helm-mode.el b/helm-mode.el
index fb9fe7dd06..a6b97a2b68 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1453,7 +1453,7 @@ This handler uses dynamic matching which allows honouring 
`completion-styles'."
   (let* ((history (or (car-safe hist) hist))
          (input (helm-acase init
                   ((guard (stringp it)) it)
-                  ((guard (consp it)) (car it)))
+                  ((guard (consp it)) (car it))))
          (completion-flex-nospace t)
          (minibuffer-completion-table collection)
          ;; (completion-styles