branch: externals/ergoemacs-mode
commit 9d758c67bf629eb968aa7d60406c74dfe7810218
Author: Walter Landry <[email protected]>
Commit: Walter Landry <[email protected]>
Remove unused hooks
---
ergoemacs-component.el | 11 -----------
ergoemacs-lib.el | 1 -
ergoemacs-mode.el | 17 -----------------
3 files changed, 29 deletions(-)
diff --git a/ergoemacs-component.el b/ergoemacs-component.el
index 5dbfd80..4a8ec94 100644
--- a/ergoemacs-component.el
+++ b/ergoemacs-component.el
@@ -761,17 +761,6 @@ LAYOUT is the current keyboard layout. Defaults to
(ergoemacs-component-struct--minor-mode-map-alist-hash obj))
ret))
-(defun ergoemacs-component-struct--add-unbound (&rest _ignore)
- "Add recently bound variables to `minor-mode-map-alist'."
- (let (new)
- (dolist (elt ergoemacs-component-struct--unbound-maps)
- (if (boundp (car elt))
- (push elt minor-mode-map-alist)
- (push elt new)))
- (setq ergoemacs-component-struct--unbound-maps new)))
-
-(add-hook 'ergoemacs-mode-after-load-hook
'ergoemacs-component-struct--add-unbound)
-
(defun ergoemacs-component-struct--hooks (&optional obj ret)
"Gets a list of hooks that need to be defined eor OBJ.
diff --git a/ergoemacs-lib.el b/ergoemacs-lib.el
index e48f902..5e7681c 100644
--- a/ergoemacs-lib.el
+++ b/ergoemacs-lib.el
@@ -220,7 +220,6 @@ KEEP can change remove to nil."
(defvar ergoemacs-require--ini-p nil)
(defun ergoemacs-require--ini-p ()
(setq ergoemacs-require--ini-p t))
-(add-hook 'ergoemacs-mode-after-startup-run-load-hooks
#'ergoemacs-require--ini-p)
(defun ergoemacs-require (option &optional theme type remove)
"Requires an OPTION on ergoemacs themes.
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index 4cf9e9b..f29c224 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -615,17 +615,6 @@ When STORE-P is non-nil, save the tables."
(defvar ergoemacs-mode-init-hook nil
"Hook for running after Emacs loads.")
-(defvar ergoemacs-mode-after-load-hook nil
- "Hook for running after a library loads.")
-
-(defvar ergoemacs-after-load-functions nil)
-(defun ergoemacs-after-load-functions (absoulte-file-name)
- "Run `ergoemacs-mode' after load functions.
-
-ABSOULTE-FILE-NAME is the file name that will be passed to the
-variable `ergoemacs-after-load-functions'."
- (run-hook-with-args 'ergoemacs-after-load-functions absoulte-file-name))
-
(defvar ergoemacs-mode-reset nil
"Does `ergoemacs-mode' need to be reset?")
@@ -661,8 +650,6 @@ transpose words instead of running completion, call
after initializing ergoemacs-mode.
")
-(ergoemacs :label ergoemacs-override-keymap)
-
(defvar ergoemacs-override-alist nil
"ErgoEmacs override keymaps.")
@@ -954,10 +941,6 @@ also perform `outline-next-visible-heading'"
:type 'boolean
:group 'ergoemacs-mode)
-(defun ergoemacs-mode-after-startup-run-load-hooks (&rest _ignore)
- "Run `ergoemacs-mode-after-load-hook' after loading Emacs."
- (run-hooks 'ergoemacs-mode-after-load-hook))
-
(defvar ergoemacs-mode-started-p nil)
(if ergoemacs-mode--fast-p
