From bd2698f4dbd6085e20b14950dc831be57b63aae6 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 13 Jun 2018 20:03:23 +0300
Subject: [PATCH] counsel.el (counsel-describe-face): Set :caller

Fixes #1619
---
 counsel.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index b8eddb8f..54737736 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1080,7 +1080,8 @@ BUFFER defaults to the current one."
            (push (symbol-name s) cands))))
     (ivy-read "Face: " cands
               :preselect (symbol-name (face-at-point t))
-              :action #'describe-face)))
+              :action #'describe-face
+              :caller 'counsel-describe-face)))
 ;;* Git
 ;;** `counsel-git'
 (defvar counsel-git-cmd "git ls-files --full-name --"