emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ergoemacs-mode d092102 181/325: Remove pre- and post-co


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode d092102 181/325: Remove pre- and post-command hooks
Date: Sat, 23 Oct 2021 18:48:48 -0400 (EDT)

branch: externals/ergoemacs-mode
commit d092102fabe2d9009d14e70199a79b8f3264dbd8
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]