[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ergoemacs-mode 6c909f3 185/325: Remove the shutdown hoo
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ergoemacs-mode 6c909f3 185/325: Remove the shutdown hook |
Date: |
Sat, 23 Oct 2021 18:48:49 -0400 (EDT) |
branch: externals/ergoemacs-mode
commit 6c909f32a167c47b9a5c909b661177ad95eda32d
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>
Remove the shutdown hook
---
ergoemacs-map.el | 50 --------------------------------------------------
ergoemacs-test.el | 1 -
2 files changed, 51 deletions(-)
diff --git a/ergoemacs-map.el b/ergoemacs-map.el
index 6a276fb..8437a95 100644
--- a/ergoemacs-map.el
+++ b/ergoemacs-map.el
@@ -1062,62 +1062,14 @@ When INI is non-nil, add conditional maps to
`minor-mode-map-alist'."
(defun ergoemacs-map--install ()
"Install `ergoemacs-mode' into the appropriate keymaps."
(interactive)
- (ergoemacs-map--hashkey)
(ergoemacs-mode-line)
(define-key ergoemacs-menu-keymap [menu-bar ergoemacs-mode]
`("ErgoEmacs" . ,(ergoemacs-theme--menu)))
-
- (let ((x (assq 'ergoemacs-mode minor-mode-map-alist)))
- (while x
- (setq minor-mode-map-alist (delq x minor-mode-map-alist))
- ;; Multiple menus sometimes happen because of multiple
- ;; ergoemacs-mode variables in minor-mode-map-alist
- (setq x (assq 'ergoemacs-mode minor-mode-map-alist)))
- (push (cons 'ergoemacs-mode ergoemacs-menu-keymap) minor-mode-map-alist))
-
- (setq ergoemacs-map-- (make-hash-table :test 'equal)
- ergoemacs-map--lookup-hash (make-hash-table :test 'equal)
- ergoemacs-keymap (ergoemacs)
- ergoemacs-map--alist (make-hash-table)
- ergoemacs-map--alists (make-hash-table)
- ergoemacs-map--alist-t (make-hash-table)
- ergoemacs-map--alist-t-o (make-hash-table)
- ergoemacs-map--quit-map (make-sparse-keymap)
- ergoemacs-saved-global-map global-map
- global-map ergoemacs-keymap)
- (use-global-map global-map)
- ;; Setup the quit map
- (dolist (key (where-is-internal 'keyboard-quit))
- (when (= 1 (length key))
- (define-key ergoemacs-map--quit-map key 'keyboard-quit)))
- (ergoemacs ergoemacs-map--quit-map :label '(ergoemacs-quit))
-
- ;; Put `ergoemacs-mode' style key shortcuts instead of emacs
- ;; style shortcuts (They need to place the correct shortucts)
- (ergoemacs-menu--filter (lookup-key ergoemacs-keymap [menu-bar]))
- (ergoemacs-map--modify-active t)
- (ergoemacs-component-struct--create-hooks)
)
(add-hook 'ergoemacs-mode-startup-hook #'ergoemacs-map--install)
(defvar ergoemacs-mode)
-(defun ergoemacs-map--remove ()
- "Remove `ergoemacs-mode' keybindings."
- (interactive)
- ;; Restore menu-bar
- ;; Not needed; Global map isn't modified...
- (let (ergoemacs-mode)
- (setq ergoemacs-map--alist (make-hash-table)
- ergoemacs-map--alists (make-hash-table)
- global-map (ergoemacs :revert-global-map)
- ergoemacs-saved-global-map nil)
- (use-global-map global-map)
- (ergoemacs-map--modify-active t)
- (ergoemacs-component-struct--rm-hooks)
- (dolist (map ergoemacs-map--modified-maps)
- (ergoemacs :spinner '("rm ⌨→%s" "rm ergoemacs→%s" "rm ergoemacs->%s")
map)
- (set map (ergoemacs (ergoemacs-sv map) :revert-original)))))
(defvar ergoemacs-map-undefined-remaps
'((kill-buffer . ergoemacs-close-current-buffer))
@@ -1140,8 +1092,6 @@ runs the same command, tell the user."
(t
(message "%s is disabled!" key)))))
-(add-hook 'ergoemacs-mode-shutdown-hook #'ergoemacs-map--remove)
-
(autoload 'ergoemacs (expand-file-name "ergoemacs-macros.el" ergoemacs-dir)
nil t)
(provide 'ergoemacs-map)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 0bc6494..8b729be 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -830,7 +830,6 @@ Part of addressing Issue #147."
(ergoemacs-test-major-mode)
(when (not (current-local-map))
(use-local-map ergoemacs-test-major-mode-map))
- (ergoemacs-map--modify-active)
(should (eq (key-binding (kbd "C-w")) 'ergoemacs-close-current-buffer))
;; The user-defined C-w should not affect kill-region remaps.
(should (not (eq (key-binding [ergoemacs-remap kill-region])
'ergoemacs-close-current-buffer))))))
- [elpa] externals/ergoemacs-mode cdfb329 134/325: Install calc bindings with a regular function, (continued)
- [elpa] externals/ergoemacs-mode cdfb329 134/325: Install calc bindings with a regular function, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 61218ba 138/325: Remove multiple-cursors and avy, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 0640576 161/325: Menu work, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 45688c2 164/325: Add better binding for Fill menu, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 3fcd06c 163/325: Fix interrupting isearch with a regular command, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode addfd4c 156/325: Use ergoemacs-override-keymap instead of a local keymap, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 35897ad 159/325: Fix menus so that "Open Recent" works, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 27e8a09 167/325: Remove more macros, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode f6aac16 172/325: Remove unused ergoemacs-command-loop, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode b6ad133 178/325: Remove M-O-fight test. It fails, but the keys work with manual tests, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 6c909f3 185/325: Remove the shutdown hook,
Stefan Monnier <=
- [elpa] externals/ergoemacs-mode 615ec31 186/325: Really remove the startup and shutdown hooks, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode d475686 187/325: Remove require stuff, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 209e00f 189/325: Fix a test, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode c484389 201/325: Lots of tweaks to the help svg, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 7553908 215/325: Remove set-layout, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 3433126 208/325: Move key binding help up and rename it, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5c39790 227/325: Remove ergoemacs-theme, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode ec39c50 234/325: Remove more ergoemacs-theme-component--parse, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 91b273c 236/325: Remove ergoemacs-component-struct--define-key, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode b40fd9e 237/325: Remove ergoemacs-map--, Stefan Monnier, 2021/10/23