branch: master
commit 2f6b67a4e062be03ce9c262499747e69edcf4034
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
counsel.el (counsel-pt): Add initial-input arg
Fixes #757
---
counsel.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/counsel.el b/counsel.el
index e4ade60..387877c 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1706,13 +1706,13 @@ pt using `counsel-ag'."
:group 'ivy)
;;;###autoload
-(defun counsel-pt ()
+(defun counsel-pt (&optional initial-input)
"Grep for a string in the current directory using pt.
This uses `counsel-ag' with `counsel-pt-base-command' replacing
`counsel-ag-base-command'."
(interactive)
(let ((counsel-ag-base-command counsel-pt-base-command))
- (call-interactively 'counsel-ag)))
+ (counsel-ag initial-input)))
;;** `counsel-grep'
(defcustom counsel-grep-base-command "grep -nE \"%s\" %s"
