[elpa] 107/117: Make sure the read-input-keymap has M-O and M-[. Possibly fix Issue #280

[Matthew Fidler]

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

commit f30be4ba1f3336725089b948de2e0c2106a05be9
Author: Matthew L. Fidler <address@hidden>
Date:   Thu Jul 24 09:33:44 2014 -0500

    Make sure the read-input-keymap has M-O and M-[. Possibly fix Issue #280
---
 ergoemacs-theme-engine.el |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index a8a5821..b9b470e 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -1702,6 +1702,10 @@ The actual keymap changes are included in 
`ergoemacs-emulation-mode-map-alist'."
       (set-default 'ergoemacs-no-shortcut-keys nil)
       (set-default 'ergoemacs-read-input-keys (not remove-p))
       (set-default 'ergoemacs-unbind-keys (not remove-p))
+      ;; Add M-O M-[ to read-keys for terminal compatibility
+      (when (ignore-errors (keymapp final-read-map))
+       (define-key final-read-map (read-kbd-macro "M-O" t) 
'ergoemacs-read-key-default)
+       (define-key final-read-map (read-kbd-macro "M-[" t) 
'ergoemacs-read-key-default))
       (setq ergoemacs-mode (not remove-p)
             ergoemacs-keymap final-map
             ergoemacs-shortcut-keys (not remove-p)
@@ -2190,6 +2194,7 @@ DONT-COLLAPSE doesn't collapse empty keymaps"
 
 (declare-function ergoemacs-global-changed-p "ergoemacs-unbind.el")
 (declare-function ergoemacs-shuffle-keys "ergoemacs-mode.el")
+(declare-function ergoemacs-pretty-key "ergoemacs-translate.el")
 (defvar ergoemacs-ignore-advice)
 (defun ergoemacs-theme-component--ignore-globally-defined-key (key &optional 
reset)
   "Adds KEY to `ergoemacs-global-override-rm-keys' and 
`ergoemacs-global-override-map' if globally redefined."