From 9ed9cc218027abd50729cb6fc190fa8fc7921ad3 Mon Sep 17 00:00:00 2001
From: Matt Nish-Lapidus <matt@emenel.ca>
Date: Mon, 19 May 2025 23:47:06 -0400
Subject: [PATCH] working on bindings

---
 bindings.el | 1 +
 meow.el     | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/bindings.el b/bindings.el
index d10a7f5..d9a7a16 100644
--- a/bindings.el
+++ b/bindings.el
@@ -357,6 +357,7 @@
       "C-M-j" #'next-window-any-frame
       "C-M-k" #'previous-window-any-frame
       "C-M-l" #'centaur-tabs-forward
+      "C-^" #'cua-exchange-point-and-mark ; to make this acessible as a meow bind it needed a new base keybind
       "M-x" #'execute-extended-command
       "<home>" #'beginning-of-buffer
       "<end>" #'end-of-buffer
diff --git a/meow.el b/meow.el
index deaf02c..478aa76 100644
--- a/meow.el
+++ b/meow.el
@@ -16,7 +16,8 @@
           (meow--select (not isearch-forward)))))))
 
 (setf meow--kbd-forward-char "<right>"
-      meow--kbd-undo "C-z")
+      meow--kbd-undo "C-z"
+      meow--kbd-exchange-point-and-mark "C-^")
 
 (add-hook 'isearch-mode-end-hook 'meow--post-isearch-function)
 
@@ -73,6 +74,7 @@
    '("l" . meow-right)
    '("L" . meow-right-expand)
    '("m" . meow-join)
+   '("M" . meow-pop-or-unpop-to-mark)
    '("n" . meow-search)
    '("o" . meow-block)
    '("O" . meow-to-block)