mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 8046b33060264eb175f7bb96d8624d7688bd74ae Author: Matthew L. Fidler <[email protected]> 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)))
