[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ergoemacs-mode e02abf1 150/325: Remove unused post-comm
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ergoemacs-mode e02abf1 150/325: Remove unused post-command-hook and echo timer |
Date: |
Sat, 23 Oct 2021 18:48:41 -0400 (EDT) |
branch: externals/ergoemacs-mode
commit e02abf1269f1f52a65b3e9b985092e3ce454e11c
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>
Remove unused post-command-hook and echo timer
---
ergoemacs-command-loop.el | 74 -----------------------------------------------
1 file changed, 74 deletions(-)
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 16b4b13..9e448c5 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -692,62 +692,6 @@ KEYS is the keys information"
(defvar ergoemacs-command--timeout-timer nil)
(defvar ergoemacs-command--timeout-keys nil)
-(defun ergoemacs-command--timer-timeout ()
- "Send the [ergoemacs-timeout] event (after timeout)."
- (let ((keys (this-single-command-keys)))
- (when ergoemacs-command--timeout-timer
- (cancel-timer ergoemacs-command--timeout-timer)
- (setq ergoemacs-command--timeout-timer nil)
- (when (equal keys ergoemacs-command--timeout-keys)
- (push 'ergoemacs-timeout unread-command-events))
- (setq ergoemacs-command--timeout-keys nil))))
-
-(defun ergoemacs-command--echo-prefix ()
- "Echos prefix keys in the ergoemacs-mode way."
- (let ((keys (this-single-command-keys)))
- (when (and ergoemacs-command--timeout-timer
- (not (equal keys ergoemacs-command--timeout-keys)))
- (cancel-timer ergoemacs-command--timeout-timer)
- (setq ergoemacs-command--timeout-keys nil
- ergoemacs-command--timeout-timer nil))
- (unless (or (equal [] keys)
- (ergoemacs-command-loop-p))
- (when (ergoemacs-keymapp (key-binding keys))
- (when (key-binding (vconcat keys [ergoemacs-timeout]))
- (cond
- ((not (region-active-p))) ;; active
- (t
- (setq ergoemacs-command--timeout-keys keys
- ergoemacs-command--timeout-timer
(ergoemacs-command--timer-timeout)
- )
- )))
- (unless unread-command-events
- (ergoemacs-command-loop--message
- "%s" (ergoemacs-command-loop--key-msg
- (setq ergoemacs-command--blink-on (not
ergoemacs-command--blink-on))
- nil nil
- (this-single-command-keys)
- nil nil nil)))))))
-
-(defun ergoemacs-command--echo-timer ()
- "Echo the keystrokes in the `ergoemacs-mode' way."
- (when (and (not ergoemacs-command-loop-type)
- (not erogemacs-command--echo-timer))
- (unless ergoemacs-orig-echo-keystrokes
- (setq ergoemacs-orig-echo-keystrokes echo-keystrokes))
- (setq echo-keystrokes 0)
- (setq erogemacs-command--echo-timer
- (run-at-time t ergoemacs-command-loop-blink-rate
#'ergoemacs-command--echo-prefix))))
-
-(defun ergoemacs-command--echo-timer-off ()
- "Turn off the timer."
- (setq echo-keystrokes ergoemacs-orig-echo-keystrokes)
- (when erogemacs-command--echo-timer
- (cancel-timer erogemacs-command--echo-timer)))
-
-(add-hook 'ergoemacs-post-command-hook #'ergoemacs-command--echo-timer)
-(add-hook 'ergoemacs-shutdown-hook #'ergoemacs-command--echo-timer-off)
-
(defun ergoemacs-command-loop--read-key (&optional current-key type universal)
"Read a key for the `ergoemacs-mode' command loop.
@@ -1090,24 +1034,6 @@ from within the ergoemacs-mode command loop."
(defvar ergoemacs-last-command-was-ergoemacs-ignore-p nil
"Last command was `ergoemacs-ignore'.")
-(defun ergoemacs-command-loop--start-with-post-command-hook ()
- "Start ergoemacs command loop.
-
-This is done by pushing the key [ergoemacs-ignore] on the
-`unread-command-events' stack. This then forces `ergoemacs-mode'
-to start with
-`ergoemacs-command-loop--start-with-pre-command-hook'."
- (when (and (not ergoemacs-command-loop--internal-end-command-p)
- (ergoemacs-command-loop-full-p))
- (if ergoemacs-last-command-was-ergoemacs-ignore-p
- (unless (eq ergoemacs-last-command-was-ergoemacs-ignore-p :idle)
- (run-with-timer 0.0 nil (lambda()
- (setq
ergoemacs-last-command-was-ergoemacs-ignore-p :idle)
- (ergoemacs-command-loop-start))))
- (push 'ergoemacs-ignore unread-command-events))))
-
-(add-hook 'ergoemacs-post-command-hook
#'ergoemacs-command-loop--start-with-post-command-hook)
-
(defvar ergoemacs-command-loop--point-motion-last-point nil
"Record the last point.")
- [elpa] externals/ergoemacs-mode ad4202a 130/325: Remove unused components, (continued)
- [elpa] externals/ergoemacs-mode ad4202a 130/325: Remove unused components, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 63ba586 133/325: Get rid of undo-tree and browse-kill-ring bindings, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode ff0ec3b 140/325: Make comint and dired bindings into hooks, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 2adc6aa 146/325: Remove many C-S- bindings. Make M-C-[:; ] work. Small cleanups., Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode d198bd3 149/325: Delete dead code, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 1ca781f 145/325: Fix info mode, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 238435f 154/325: Lots of isearch fixes, with a few other minor fixes to mode maps, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode cbe3e19 157/325: Add create/delete frame to menu, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode fcea163 151/325: Install an override map instead of futzing with all of the modes, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 481871c 152/325: Make ergoemacs-paste use term-paste if in term-mode, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e02abf1 150/325: Remove unused post-command-hook and echo timer,
Stefan Monnier <=
- [elpa] externals/ergoemacs-mode 982c28c 171/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 4b6d159 183/325: Remove command-loop and translate stuff, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 12d5e8e 176/325: Handle conflict between M-O and arrow keys in the terminal, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode ed8a7c9 191/325: Remove unused theme choice menu, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 1136451 195/325: Remove all unicode-or-alt logic. Unicode all the way., Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 18f27c0 204/325: Fix SPC svg help, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode f41b18d 202/325: Remove 'apps and 'menu, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode a65ea4d 211/325: Cleanup unused declarations, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e9259a5 210/325: Remove unused ergoemacs-component-describe, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 6bdd55b 213/325: Remove powerline stuff, Stefan Monnier, 2021/10/23