[elpa] externals/ergoemacs-mode f6aac16 172/325: Remove unused ergoemacs-command-loop

[Stefan Monnier]

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

    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")