From: justbur <justin@burkett.cc>
Date: Thu, 10 Mar 2016 18:24:15 +0000 (-0500)
Subject: counsel.el (counsel-prompt-function-dir): Fix format
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/5229ebeeebdac8cb90ba0f7322e6cf3958d3e28d

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 49b0440e8..26d4b83f1 100644
--- 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 ()