branch: externals/ergoemacs-mode
commit 149c900ff9d10c3396c92c752c816554a0c26202
Author: Walter Landry <[email protected]>
Commit: Walter Landry <[email protected]>
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))
