branch: externals/ergoemacs-mode
commit f6aac16c647b9959c6a462310560cdf580bac73c
Author: Walter Landry <[email protected]>
Commit: Walter Landry <[email protected]>
Remove unused ergoemacs-command-loop
---
ergoemacs-command-loop.el | 32 --------------------------------
ergoemacs-mode.el | 1 -
ergoemacs-test.el | 1 -
3 files changed, 34 deletions(-)
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 9e448c5..862a431 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -933,38 +933,6 @@ sure that `ergoemacs-command-loop--internal' hasn't been
called."
(eq (symbol-function 'this-command-keys)
#'ergoemacs-command-loop--this-command-keys))
(defvar ergoemacs-command-loop-start nil)
-(defun ergoemacs-command-loop (&optional key type initial-key-type universal
initial-history)
- "Process `ergoemacs-command-loop'.
-
-KEY is the key being read, or sequence being read.
-
-TYPE is the translation being used.
-
-INITIAL-KEY-TYPE is the key type that is used fot the initial
-translation.
-
-UNIVERSAL is if the function will be calling a universal
-argument.
-
-INITIAL-HISTORY is the initial history list.
-
-The true work is done in `ergoemacs-command-loop--internal'."
- (interactive)
- (cond
- ((and (or ergoemacs-command-loop-start key) (not
(ergoemacs-command-loop-p)))
- ;; (ergoemacs-command-loop--message "Start ergoemacs-mode command loop." )
- (ergoemacs-command-loop--internal key type initial-key-type universal
initial-history))
- (t
- (setq ergoemacs-command-loop--exit :ignore-post-command-hook
- prefix-arg current-prefix-arg
- ergoemacs-command-loop--single-command-keys (or (and key
(read-kbd-macro key t))
-
ergoemacs-command-loop--single-command-keys)
- unread-command-events (or (and key
(ergoemacs-command-loop--listify-key-sequence key initial-key-type))
- unread-command-events)
- ergoemacs-command-loop--universal (if (and
ergoemacs-command-loop--universal (not universal)) nil
- universal)
- ergoemacs-command-loop--current-type (or type
ergoemacs-command-loop--current-type)
- ergoemacs-command-loop--history (or initial-history
ergoemacs-command-loop--history)))))
(defvar ergoemacs-command-loop--running-pre-command-hook-p nil
"Variable to tell if ergoemacs-command loop is running the
`pre-command-hook'.")
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index 80bd423..f8b66c4 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -293,7 +293,6 @@ The `execute-extended-command' is now
\\[execute-extended-command].
(push elt ergoemacs-mode--default-frame-alist))
(ergoemacs-install-standard-theme)
(run-hooks 'ergoemacs-mode-startup-hook)
-
(setq ergoemacs-require--ini-p t)
(ergoemacs-setup-override-keymap)
(if refresh-p
diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 9be3772..ef7be06 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -55,7 +55,6 @@
(declare-function ergoemacs-mode "ergoemacs-mode")
-(declare-function ergoemacs-command-loop "ergoemacs-command-loop")
(declare-function ergoemacs-command-loop--internal "ergoemacs-command-loop")
(declare-function ergoemacs-command-loop--mouse-command-drop-first
"ergoemacs-command-loop")
(declare-function ergoemacs-command-loop--read-key-sequence
"ergoemacs-command-loop")
