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

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

[elpa] externals/ergoemacs-mode 149c900 037/325: Remove ergoemacs-comman


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode 149c900 037/325: Remove ergoemacs-command-loop--modal-pop
Date: Sat, 23 Oct 2021 18:48:16 -0400 (EDT)

branch: externals/ergoemacs-mode
commit 149c900ff9d10c3396c92c752c816554a0c26202
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove ergoemacs-command-loop--modal-pop
---
 ergoemacs-command-loop.el | 5 -----
 ergoemacs-functions.el    | 3 ---
 2 files changed, 8 deletions(-)

diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index f6935e0..9f4f2da 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -241,11 +241,6 @@ If so return the translation."
           (setq ret translation))))
       ret)))
 
-(defun ergoemacs-command-loop--modal-pop ()
-  "Turn off the last ergoemacs modal in the modal-stack."
-  (when ergoemacs-command-loop--modal-stack
-    (ergoemacs-command-loop--modal (ergoemacs-translation-struct-key (nth 0 
ergoemacs-command-loop--modal-stack)))))
-
 (defun ergoemacs-command-loop--modal (type)
   "Toggle ergoemacs command modes.
 
diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 6aeb54e..7ec3372 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -66,7 +66,6 @@
 (declare-function ergoemacs-map-- "ergoemacs-map")
 (declare-function ergoemacs-mode "ergoemacs-mode")
 
-(declare-function ergoemacs-command-loop--modal-pop "ergoemacs-command-loop")
 (declare-function ergoemacs-theme-describe "ergoemacs-theme-engine")
 
 (declare-function helm-attrset "helm")
@@ -1642,8 +1641,6 @@ Similar to `keyboard-quit', with the following changes:
       (setq saved-region-selection nil)
       (let (select-active-regions)
         (deactivate-mark)))
-     (ergoemacs-command-loop--modal-stack
-      (ergoemacs-command-loop--modal-pop))
      ((and (setq bind (key-binding [7])) ;; C-g
            (not (memq bind '(ergoemacs-keyboard-quit minibuffer-keyboard-quit 
keyboard-quit))))
       (call-interactively bind))



reply via email to

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