[elpa] 23/117: Fix (substitute-command-keys "\\[recover-session]")

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit fa5d8446dbaa09f9464bc0bd7bc647dfe1d59911
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 16 07:02:07 2014 -0500

    Fix (substitute-command-keys "\\[recover-session]")
---
 ergoemacs-translate.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/ergoemacs-translate.el b/ergoemacs-translate.el
index 13b036a..51c7543 100644
--- a/ergoemacs-translate.el
+++ b/ergoemacs-translate.el
@@ -130,11 +130,11 @@ This assumes `ergoemacs-use-unicode-char' is non-nil.  
When
 (defun ergoemacs-pretty-key (code)
   "Creates Pretty keyboard binding from kbd CODE from M- to Alt+"
   (if (not code) ""
-    (if (string-match-p "^\\(M-x\\|<execute>\\) " code)
-        (if ergoemacs-use-M-x-p
-            code
-          (replace-match ergoemacs-M-x t t code))
-      (save-match-data
+    (save-match-data
+      (if (string-match "^\\(M-x\\|<execute>\\) " code)
+          (if ergoemacs-use-M-x-p
+              code
+            (replace-match ergoemacs-M-x t t code))
         (let* ((ob (or (and ergoemacs-use-unicode-brackets 
(ergoemacs-unicode-char "【" "[")) "["))
                (cb (or (and ergoemacs-use-unicode-brackets 
(ergoemacs-unicode-char "】" "]")) "]"))
                (ret (concat ob (replace-regexp-in-string