[elpa] master 2f6b67a 221/348: counsel.el (counsel-pt): Add initial-input arg

[Oleh Krehel]

branch: master
commit 2f6b67a4e062be03ce9c262499747e69edcf4034
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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"