counsel.el (counsel-find-file): Add :caller

diff --git a/counsel.el b/counsel.el
index 1c43b6e6e43df9784d7aba17a04825d37fcd6914..31b0ba02a8e22b4d8d364693330ae665e04d1185 100644 (file)
--- a/counsel.el
+++ b/counsel.el
@@ -1120,7 +1120,8 @@ When INITIAL-INPUT is non-nil, use it in the minibuffer during completion."
                            (when f (expand-file-name f))))
             :require-match 'confirm-after-completion
             :history 'file-name-history
-            :keymap counsel-find-file-map))
+            :keymap counsel-find-file-map
+            :caller 'counsel-find-file))
 
 (defun counsel-up-directory ()
   "Go to the parent directory preselecting the current one."