branch: externals/ergoemacs-mode
commit 09bc371f648b184f7368f7f5fc095b1cdcbd8fc3
Author: Matthew Fidler <[email protected]>
Commit: Matthew Fidler <[email protected]>
Restore menu items after turning off ergoemacs
---
ergoemacs-mode.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index 98be36e..5eca7f0 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -231,6 +231,9 @@ IS-ERGOEMACS is true when the `ergoemacs-mode' keybindings
are installed."
(setq hash-symbol (intern hash-symbol))
(gethash hash-symbol ergoemacs-mode--save-keymaps)))
+(defvar ergoemacs-old-menu (copy-keymap (lookup-key global-map [menu-bar]))
+ "Old menu.")
+
(defun ergoemacs-mode--restore-maps (&optional is-ergoemacs)
"Restore normal or ergoemacs keymaps (when IS-ERGOEMACS is non-nil)."
(dolist (k ergoemacs-mode--save-keymaps-list)
@@ -302,6 +305,7 @@ The `execute-extended-command' is now
\\[execute-extended-command].
(when ergoemacs-mode-turn-on-cua-mode
(cua-mode 0))
(ergoemacs-mode--restore-maps)
+ (define-key global-map [menu-bar] ergoemacs-old-menu)
(message "Ergoemacs-mode turned OFF.")))
(defvar ergoemacs-translate--event-hash (make-hash-table)
