move activating the mark to M-5, and some other rearrangements

On many keyboards, M-5 is substantially easier to type than M-6.

1 files changed, 3 insertions, 3 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index da5e41ca..4911ac7d 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -806,7 +806,7 @@ To be used only when it seems to be necessary."
 (defun spw/activate-mark (&rest _ignore)
   (interactive)
   (activate-mark))
-(define-key spw/personal-bindings-mode-map "\M-6" #'spw/activate-mark)
+(define-key spw/personal-bindings-mode-map "\M-5" #'spw/activate-mark)
 
 ;; Regarding `set-mark-command-repeat-pop': if this is set to t, then
 ;; re-setting the mark right after popping to it -- to go and edit somewhere
@@ -939,7 +939,7 @@ To be used only when it seems to be necessary."
 		       (apply #',cmd ,args))))))
   (global-set-key [remap zap-to-char] (case-sensitively zap-to-char))
   (define-key spw/personal-bindings-mode-map
-	      "\M-5" (case-sensitively zap-up-to-char)))
+	      "\M-`" (case-sensitively zap-up-to-char)))
 
 (global-set-key [remap dabbrev-expand] #'hippie-expand)
 
@@ -1842,7 +1842,7 @@ The ideas behind these behaviours are as follows.
   (set-mark (save-excursion (goto-char (mark)) (beginning-of-line 2) (point)))
   (activate-mark transient-mark-mode))
 ;; used to have it on M-+
-(global-set-key "\C-cl" #'spw/expand-region-to-whole-lines-and-activate)
+(global-set-key "\M-6" #'spw/expand-region-to-whole-lines-and-activate)
 
 ;; If know the name of group might try `gnus-read-ephemeral-gmane-group' (and
 ;; if that works well, might want to make this function prompt for a group to