[elpa] externals/ergoemacs-mode dd59643 135/325: Modify log-edit mode in a proper function

[Stefan Monnier]

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

    Modify log-edit mode in a proper function
---
 ergoemacs-themes.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index c75fb44..8d19c5a 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -339,8 +339,6 @@ calling any other ergoemacs-set-* function"
   :variable-reg nil ;; No variable keys
   ;; Mode specific changes
 
-  (define-key log-edit-mode-map [remap save-buffer] 'log-edit-done)
-
   (define-key comint-mode-map (kbd "<home>") 'comint-bol)
 
   ;; Compatibility with Icicle (allows the use of
@@ -1297,6 +1295,18 @@ calling any other ergoemacs-set-* function"
 
 (add-hook 'calc-load-hook #'ergoemacs-install-calc-bindings)
 
+
+(defun ergoemacs-install-log-edit-bindings ()
+  (ergoemacs-define-key log-edit-mode-map (kbd "C-s") 'log-edit-done)
+  (define-key log-edit-mode-map (kbd "C-a") nil)
+  (define-key log-edit-mode-map (kbd "M-n") nil)
+  (define-key log-edit-mode-map (kbd "M-p") nil)
+  (define-key log-edit-mode-map (kbd "M-r") nil)
+  (define-key log-edit-mode-map (kbd "M-s") nil)
+  )
+
+(with-eval-after-load 'log-edit (ergoemacs-install-log-edit-bindings))
+
 (ergoemacs-translation normal ()
   "Identify transformation"
   :keymap (let ((map (make-sparse-keymap)))