less obtrusive repeat map for previous window

1 files changed, 3 insertions, 4 deletions

diff --git a/init.el b/init.el
index a062791..199afd1 100644
--- a/init.el
+++ b/init.el
@@ -967,15 +967,14 @@
 (defvar jao-prev-window-repeat-map
   (let ((map (make-sparse-keymap)))
     (define-key map "p" 'jao-prev-window)
-    (define-key map "o" (lambda ()
+    (define-key map "P" (lambda ()
                           (interactive)
                           (setq repeat-map 'jao-prev-window-repeat-map)
                           (other-window 1)))
     map)
   "Keymap to repeat `prev-window' key sequences.  Used in `repeat-mode'.")
-(put 'jao-prev-window 'repeat-map jao-prev-window-repeat-map)
 
-(define-key other-window-repeat-map "p" 'jao-prev-window)
+(put 'jao-prev-window 'repeat-map jao-prev-window-repeat-map)
 
 (mapc (lambda (n)
         (global-set-key (format "\C-c%s" (1+ n)) (jao-nth-window n)))
@@ -3211,7 +3210,7 @@
 (defun jao-global-keybindings ()
   (interactive)
   (global-set-key (kbd "<f2>") #'magit-status)
-  (global-set-key (kbd "C-x p") #'switch-window)
+  (global-set-key (kbd "C-x p") #'jao-prev-window)
   (global-set-key (kbd "C-x o") 'other-window)
   (global-set-key "\C-cj" #'join-line)
   (global-set-key "\C-cn" #'next-error)