[elpa] externals/ergoemacs-mode cdfb329 134/325: Install calc bindings with a regular function

[Stefan Monnier]

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

    Install calc bindings with a regular function
---
 ergoemacs-themes.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 1b9f868..c75fb44 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -480,8 +480,8 @@ calling any other ergoemacs-set-* function"
 (ergoemacs-component copy ()
   "Copy, Cut, Paste, Redo and Undo"
   
-  (define-key calc-mode-map [remap ergoemacs-paste] 'calc-yank)
-  (define-key calc-mode-map [remap undo-tree-undo] 'calc-undo)
+  ;; (define-key calc-mode-map [remap ergoemacs-paste] 'calc-yank)
+  ;; (define-key calc-mode-map [remap undo-tree-undo] 'calc-undo)
   )
 
 (defun ergoemacs-set-search ()
@@ -1290,6 +1290,12 @@ calling any other ergoemacs-set-* function"
 
 (add-hook 'org-load-hook #'ergoemacs-install-org-bindings)
 
+(defun ergoemacs-install-calc-bindings ()
+  (ergoemacs-define-key calc-mode-map (kbd "M-v") 'calc-yank)
+  (ergoemacs-define-key calc-mode-map (kbd "M-z") 'calc-undo)
+  )
+
+(add-hook 'calc-load-hook #'ergoemacs-install-calc-bindings)
 
 (ergoemacs-translation normal ()
   "Identify transformation"