From 1c13ecae6623a0703c4ff65dbccd311760380c51 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 12 Sep 2022 07:30:07 -0700 Subject: [PATCH] Add new C-x w prefix map * window.el (window-prefix-map): New map. (ctl-x-map): Unbind split-root-window-below and split-root-window-right. Bind window-prefix-map to C-x w. --- lisp/window.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index 67a4a4bbf2f..d5f42dd10b4 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -10558,8 +10558,6 @@ displaying that processes's buffer." (define-key ctl-x-map "{" 'shrink-window-horizontally) (define-key ctl-x-map "-" 'shrink-window-if-larger-than-buffer) (define-key ctl-x-map "+" 'balance-windows) -(define-key ctl-x-map "7" 'split-root-window-below) -(define-key ctl-x-map "9" 'split-root-window-right) (define-key ctl-x-4-map "0" 'kill-buffer-and-window) (define-key ctl-x-4-map "1" 'same-window-prefix) (define-key ctl-x-4-map "4" 'other-window-prefix) @@ -10590,6 +10588,16 @@ displaying that processes's buffer." (put 'shrink-window-horizontally 'repeat-map 'resize-window-repeat-map) (put 'shrink-window 'repeat-map 'resize-window-repeat-map) +(defvar-keymap window-prefix-map + :doc "Keymap for subcommands of \\`C-x w'." + "2" #'split-root-window-below + "3" #'split-root-window-right + "s" #'window-toggle-side-windows + "f" #'tear-off-window + "-" #'fit-window-to-buffer + "0" #'delete-windows-on) +(define-key ctl-x-map "w" window-prefix-map) + (provide 'window) ;;; window.el ends here -- 2.39.2