branch: elpa/helm
commit 13340b0b07d0fd4757d28a26a0f11e947f45f72d
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@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
;;
