counsel.el (counsel-M-x): Let-bind this-command

This change allows in particular to customize `ivy-re-builders-alist'
via `this-command' and have `counsel-M-x' work properly with it.

diff --git a/counsel.el b/counsel.el
index 88b144180b0d88d2db044b2f71b9c3898d779ec0..7df6c8718edf8a40a86127a2e3b31b0628d68a63 100644 (file)
--- a/counsel.el
+++ b/counsel.el
@@ -892,7 +892,8 @@ Optional INITIAL-INPUT is the initial input in the minibuffer."
                 (when (featurep 'smex)
                   (smex-rank (intern cmd)))
                 (let ((prefix-arg current-prefix-arg)
-                      (ivy-format-function store))
+                      (ivy-format-function store)
+                      (this-command (intern cmd)))
                   (command-execute (intern cmd) 'record)))
               :sort sort
               :keymap counsel-describe-map