[elpa] externals/ergoemacs-mode 09bc371 278/325: Restore menu items after turning off ergoemacs

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit 09bc371f648b184f7368f7f5fc095b1cdcbd8fc3
Author: Matthew Fidler <514778+mattfidler@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfidler@users.noreply.github.com>

    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)