[nongnu] elpa/helm 13340b0b07 1/2: Fix Ag/Rg prompt and buffer name for types

[ELPA Syncer]

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

    Fix Ag/Rg prompt and buffer name for types
---
 helm-grep.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/helm-grep.el b/helm-grep.el
index a812765766..ef4c3b40e6 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -1742,15 +1742,16 @@ If INPUT is provided, use it as the search string."
   "Start grep AG in DIRECTORY.
 When WITH-TYPES is non-nil provide completion on AG types."
   (require 'helm-adaptive)
-  (helm-grep-ag-1 directory
-                  (helm-aif (and with-types
-                                 (helm-grep-ag-get-types))
-                      (helm-comp-read
-                       "Ag type: " it
-                       :must-match t
-                       :marked-candidates t
-                       :fc-transformer 'helm-adaptive-sort
-                       :buffer "*helm ag types*"))))
+  (let ((com (capitalize (helm-grep--ag-command))))
+    (helm-grep-ag-1 directory
+                    (helm-aif (and with-types
+                                   (helm-grep-ag-get-types))
+                        (helm-comp-read
+                         (format "%s type: " com) it
+                         :must-match t
+                         :marked-candidates t
+                         :fc-transformer 'helm-adaptive-sort
+                         :buffer (format "*helm %s types*" com))))))
 
 ;;; Git grep
 ;;