[elpa] externals/ivy-hydra f8b1ab8 328/395: Minor fixes for recent additions

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit f8b1ab8c0ec331a4f8f6621f9021811075c71332
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Minor fixes for recent additions
    
    * counsel.el (counsel-M-x-action): Simplify.
    * ivy.el (ivy-define-key): Fix docstring.  Reported by Howard
    Melman.
---
 counsel.el | 3 ++-
 ivy.el     | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/counsel.el b/counsel.el
index 80c4c7d..5ec26e7 100644
--- a/counsel.el
+++ b/counsel.el
@@ -884,7 +884,8 @@ packages are, in order of precedence, `amx' and `smex'."
 
 (defun counsel-M-x-action (cmd)
   "Execute CMD."
-  (setq cmd (intern (replace-regexp-in-string " " "-" (string-remove-prefix 
"^" cmd))))
+  (setq cmd (intern
+             (subst-char-in-string ?\s ?- (string-remove-prefix "^" cmd))))
   (cond ((bound-and-true-p amx-initialized)
          (amx-rank cmd))
         ((bound-and-true-p smex-initialized-p)
diff --git a/ivy.el b/ivy.el
index 71f8409..237c1e4 100644
--- a/ivy.el
+++ b/ivy.el
@@ -301,7 +301,7 @@ action functions.")
 ;;* Keymap
 (require 'delsel)
 (defun ivy-define-key (keymap key def)
-  "Forward to (`ivy-define-key' KEYMAP KEY DEF).
+  "Forward to (`define-key' KEYMAP KEY DEF).
 Remove DEF from `counsel-M-x' list."
   (put def 'no-counsel-M-x t)
   (define-key keymap key def))