[elpa] 44/287: Suppress shortcuts

[Matthew Fidler]

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

commit 8046b33060264eb175f7bb96d8624d7688bd74ae
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jun 4 13:42:23 2014 -0500

    Suppress shortcuts
---
 ergoemacs-advices.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-advices.el b/ergoemacs-advices.el
index 0e22daf..1766a27 100644
--- a/ergoemacs-advices.el
+++ b/ergoemacs-advices.el
@@ -241,7 +241,8 @@ will add MAP to substitution."
       (if test-hash
           (progn
             (ergoemacs-pretty-key (key-description (nth 0 test-hash))))
-        (let (ergoemacs-modal ergoemacs-repeat-keys ergoemacs-read-input-keys)
+        (let (ergoemacs-modal ergoemacs-repeat-keys ergoemacs-read-input-keys
+                              ergoemacs-shortcut-keys)
           (ergoemacs-pretty-key
            (ergoemacs-real-substitute-command-keys
             (or (and map (concat map string)) string))))))))
@@ -277,7 +278,8 @@ will add MAP to substitution."
         (push (match-string 0 test) shortcut-list)
         (setq test
               (replace-match "" nil nil test)))
-      (let (ergoemacs-modal ergoemacs-repeat-keys ergoemacs-read-input-keys)
+      (let (ergoemacs-modal ergoemacs-repeat-keys ergoemacs-read-input-keys
+                            ergoemacs-shortcut-keys)
         (setq test (funcall function string))
         (while (string-match "^.*\\<ergoemacs-shortcut.*\n" test)
           (setq test (replace-match "" test)))