branch: externals/ergoemacs-mode
commit d092102fabe2d9009d14e70199a79b8f3264dbd8
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Remove pre- and post-command hooks
---
ergoemacs-command-loop.el | 17 -----------------
ergoemacs-map.el | 2 +-
ergoemacs-mode.el | 12 ------------
3 files changed, 1 insertion(+), 30 deletions(-)
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 68cdaf3..b552432 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -609,23 +609,6 @@ is the :full command loop."
t)
(not (memq major-mode ergoemacs-command-loop--excluded-major-modes))))
-(defun ergoemacs-command-loop--start-with-pre-command-hook ()
- "Start ergoemacs command loop.
-
-This is done by replacing `this-command' with
-`ergoemacs-command-loop-start' and then running `this-command'
-from within the ergoemacs-mode command loop."
- (when (and (not ergoemacs-command-loop--running-pre-command-hook-p)
- (ergoemacs-command-loop-full-p)
- (not unread-command-events)
- (not (ergoemacs-command-loop-p)))
- (setq ergoemacs-command-loop-start this-command
- ergoemacs-command-loop--single-command-keys
(this-single-command-keys)
- this-command 'ergoemacs-command-loop-start)))
-
-(add-hook 'ergoemacs-pre-command-hook
#'ergoemacs-command-loop--start-with-pre-command-hook)
-
-
(defvar ergoemacs-last-command-was-ergoemacs-ignore-p nil
"Last command was `ergoemacs-ignore'.")
diff --git a/ergoemacs-map.el b/ergoemacs-map.el
index 45551c7..6a276fb 100644
--- a/ergoemacs-map.el
+++ b/ergoemacs-map.el
@@ -1097,7 +1097,7 @@ When INI is non-nil, add conditional maps to
`minor-mode-map-alist'."
(ergoemacs-menu--filter (lookup-key ergoemacs-keymap [menu-bar]))
(ergoemacs-map--modify-active t)
(ergoemacs-component-struct--create-hooks)
- (add-hook 'ergoemacs-post-command-hook #'ergoemacs-map--modify-active))
+ )
(add-hook 'ergoemacs-mode-startup-hook #'ergoemacs-map--install)
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index 71102e4..9a2a2d9 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -624,18 +624,6 @@ When STORE-P is non-nil, save the tables."
(defvar ergoemacs-mode-after-load-hook nil
"Hook for running after a library loads.")
-(defvar ergoemacs-pre-command-hook nil)
-(defun ergoemacs-pre-command-hook ()
- "Run `ergoemacs-mode' pre command hooks."
- (when ergoemacs-mode
- (run-hooks 'ergoemacs-pre-command-hook)))
-
-(defvar ergoemacs-post-command-hook nil)
-(defun ergoemacs-post-command-hook ()
- "Run `ergoemacs-mode' post command hooks."
- (when ergoemacs-mode
- (run-hooks 'ergoemacs-post-command-hook)))
-
(defvar ergoemacs-after-load-functions nil)
(defun ergoemacs-after-load-functions (absoulte-file-name)
"Run `ergoemacs-mode' after load functions.
