]> code.delx.au - gnu-emacs-elpa/commitdiff
ivy.el (ivy-dispatching-done): Display the candidate
authorOleh Krehel <ohwoeowho@gmail.com>
Thu, 23 Jul 2015 13:27:01 +0000 (15:27 +0200)
committerOleh Krehel <ohwoeowho@gmail.com>
Thu, 23 Jul 2015 13:27:01 +0000 (15:27 +0200)
ivy.el

diff --git a/ivy.el b/ivy.el
index 5f8e5deed9379f6b2a85955276182f155741623d..bd11501447f313deec8c71155ecffa84757fa1bf 100644 (file)
--- a/ivy.el
+++ b/ivy.el
@@ -275,15 +275,17 @@ When non-nil, it should contain one %d.")
   (let ((actions (ivy-state-action ivy-last)))
     (if (null (ivy--actionp actions))
         (ivy-done)
-      (let* ((hint (mapconcat
-                    (lambda (x)
-                      (format "%s: %s"
-                              (propertize
-                               (car x)
-                               'face 'font-lock-builtin-face)
-                              (nth 2 x)))
-                    (cdr actions)
-                    "\n"))
+      (let* ((hint (concat ivy--current
+                           "\n"
+                           (mapconcat
+                            (lambda (x)
+                              (format "%s: %s"
+                                      (propertize
+                                       (car x)
+                                       'face 'font-lock-builtin-face)
+                                      (nth 2 x)))
+                            (cdr actions)
+                            "\n")))
              (key (string (read-key hint)))
              (action (assoc key (cdr actions))))
         (cond ((string= key "\a"))