branch: externals/ergoemacs-mode commit f6aac16c647b9959c6a462310560cdf580bac73c Author: Walter Landry <wlan...@caltech.edu> Commit: Walter Landry <wlan...@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")