counsel.el (counsel-M-x): Avoid compilation warning

* counsel.el (counsel-M-x): Use `command-execute' instead of
  `execute-extended-command'.

diff --git a/counsel.el b/counsel.el
index 3f82275adb5c7d1dada239713aa93f189a244b1e..0ae079f4ac975b044a084b42f015c6f6425b87ba 100644 (file)
--- a/counsel.el
+++ b/counsel.el
@@ -536,7 +536,8 @@ Optional INITIAL-INPUT is the initial input in the minibuffer."
               (lambda (cmd)
                 (when (featurep 'smex)
                   (smex-rank (intern cmd)))
-                (execute-extended-command current-prefix-arg cmd))
+                (let ((prefix-arg current-prefix-arg))
+                  (command-execute (intern cmd) 'record)))
               :sort sort
               :keymap counsel-describe-map
               :initial-input initial-input)))