branch: externals/ergoemacs-mode
commit 739ca23a32f38a035d356b9d8ef8cbeaa8e8702a
Author: Matthew Fidler <[email protected]>
Commit: Matthew Fidler <[email protected]>
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))))
