[elpa] externals/ergoemacs-mode d2d29aa 289/325: Another fix for mark-active indent region

[monnier--- via]

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

    Another fix for mark-active indent region
---
 ergoemacs-mode.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index c3564c1..b619519 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -403,6 +403,13 @@ after initializing ergoemacs-mode.
                                        map)
   "The keybinding that is active when the mark is active.")
 
+
+(defvar ergoemacs-mark-active-cua-keymap (let ((map (make-sparse-keymap)))
+                                           (define-key map (kbd "C-c") 
'indent-region)
+                                           map)
+  "The keybinding that is active when the mark is active.")
+
+
 (defvar ergoemacs-override-alist nil
   "ErgoEmacs override keymaps.")
 
@@ -416,7 +423,7 @@ after initializing ergoemacs-mode.
   (setq ergoemacs-override-alist `((ergoemacs-mode . ,ergoemacs-user-keymap)
                                    (ergoemacs-mode . 
,ergoemacs-override-keymap)
                                    (ergoemacs-mode . ,ergoemacs-keymap))
-        ergoemacs-minor-alist `((mark-active . ,ergoemacs-mark-active-keymap)))
+        ergoemacs-minor-alist `(mark-active . ,ergoemacs-mark-active-keymap))
   (add-hook 'emulation-mode-map-alists ergoemacs-override-alist)
   (add-hook 'minor-mode-map-alist ergoemacs-minor-alist)
   (advice-add 'undefined :around #'ergoemacs-advice-undefined)