counsel.el (counsel-prompt-function-dir): Fix format

The prompt argument was unused, which looked unintentional

Fixes #425

diff --git a/counsel.el b/counsel.el
index 49b0440e809d305ed09c2c73ea2891eb84aa0723..26d4b83f18a77633606c514e5017c3f696982ae6 100644 (file)
--- a/counsel.el
+++ b/counsel.el
@@ -179,12 +179,13 @@ Update the minibuffer with the amount of lines collected every
 (defun counsel-prompt-function-dir (prompt)
   "Return PROMPT appended with the parent directory."
   (let ((directory counsel--git-grep-dir))
-    (format " [%s]: "
+    (format "%s [%s]: "
+            prompt
             (let ((dir-list (eshell-split-path directory)))
               (if (> (length dir-list) 3)
-                 (apply #'concat
-                        (append '("...")
-                                (cl-subseq dir-list (- (length dir-list) 3))))
+                  (apply #'concat
+                         (append '("...")
+                                 (cl-subseq dir-list (- (length dir-list) 3))))
                 directory)))))
 
 (defun counsel-delete-process ()