[elpa] externals/ergoemacs-mode 739ca23a32 03/13: Do not send emacs keys when in `term-mode`. Fix #510

[ELPA Syncer]

branch: externals/ergoemacs-mode
commit 739ca23a32f38a035d356b9d8ef8cbeaa8e8702a
Author: Matthew Fidler <514778+mattfidler@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfidler@users.noreply.github.com>

    Do not send emacs keys when in `term-mode`. Fix #510
---
 ergoemacs-mode.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index 32a32eadf9..94b90947bf 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -227,18 +227,22 @@ The TEXT will be what the mode-line is set to be."
 (defvar ergoemacs-post-command-hook nil)
 (defvar ergeoemacs-mode-term-raw-mode nil)
 (defvar ergoemacs-mode-regular nil)
+(defvar ergoemacs-send-keys-term nil)
 (defun ergoemacs-post-command-hook ()
   "Run `ergoemacs-mode' post command hooks."
   (when ergoemacs-mode
     (if (and (eq major-mode 'term-mode)
                (eq (current-local-map) term-raw-map))
-        (setq-local ergoemacs-mode nil
+        (setq-local ergoemacs-mode-regular nil
+                    ergoemacs-send-keys-term ergoemacs-mode-send-emacs-keys
+                    ergoemacs-mode-send-emacs-keys nil
                     ergeoemacs-mode-term-raw-mode t)
       (run-hooks 'ergoemacs-post-command-hook)))
   (when ergeoemacs-mode-term-raw-mode
     (when (and (eq major-mode 'term-mode)
                (not (eq (current-local-map) term-raw-map)))
-      (setq-local ergoemacs-mode t
+      (setq-local ergoemacs-mode-regular t
+                  ergoemacs-mode-send-emacs-keys ergoemacs-send-keys-term
                   ergeoemacs-mode-term-raw-mode nil)
       (run-hooks 'ergoemacs-post-command-hook))))