branch: externals/ergoemacs-mode
commit dd5964367de5fe4fa4aec618481c9a74bcbe5c0b
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@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)))
