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

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

[elpa] externals/ergoemacs-mode 9d758c6 190/325: Remove unused hooks


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode 9d758c6 190/325: Remove unused hooks
Date: Sat, 23 Oct 2021 18:48:50 -0400 (EDT)

branch: externals/ergoemacs-mode
commit 9d758c67bf629eb968aa7d60406c74dfe7810218
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    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



reply via email to

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