emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ergoemacs-mode 2fcad48 282/325: Allow toggling of ergoe


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode 2fcad48 282/325: Allow toggling of ergoemacs-mode-term-raw-mode
Date: Sat, 23 Oct 2021 18:49:11 -0400 (EDT)

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

    Allow toggling of ergoemacs-mode-term-raw-mode
---
 ergoemacs-mode.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index da5b38a..56a6b08 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -182,11 +182,17 @@ The TEXT will be what the mode-line is set to be."
 (defun ergoemacs-post-command-hook ()
   "Run `ergoemacs-mode' post command hooks."
   (when ergoemacs-mode
-    (when (and (eq major-mode 'term-mode)
+    (if (and (eq major-mode 'term-mode)
                (eq (current-local-map) term-raw-map))
-      (setq-local ergoemacs-mode nil)
-      (setq-local ergeoemacs-mode-term-raw-mode t))
-    (run-hooks 'ergoemacs-post-command-hook)))
+        (setq-local ergoemacs-mode 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
+                  ergeoemacs-mode-term-raw-mode nil)
+      (run-hooks 'ergoemacs-post-command-hook))))
 
 (defvar ergoemacs-after-load-functions nil)
 (defun ergoemacs-after-load-functions (absoulte-file-name)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]