From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 15 Sep 2020 10:32:19 +0000 (+0200)
Subject: * lisp/windmove.el (windmove-remove-keybindings): New function.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3b60010f964a87f11b2013c70e19046efe22d01;p=emacs.git

* lisp/windmove.el (windmove-remove-keybindings): New function.
---

diff --git a/lisp/windmove.el b/lisp/windmove.el
index 65579600640..705757c0c53 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -440,6 +440,15 @@ Default value of MODIFIERS is `shift'."
   (global-set-key (vector (append modifiers '(up)))    'windmove-up)
   (global-set-key (vector (append modifiers '(down)))  'windmove-down))
 
+;;;###autoload
+(defun windmove-remove-keybindings ()
+  "Restore default keybindings touched by `windmove-default-keybindings'."
+  (interactive)
+  (global-set-key (kbd "S-<right>") 'right-char)
+  (global-set-key (kbd "S-<left>") 'left-char)
+  (global-set-key (kbd "S-<up>") 'previous-line)
+  (global-set-key (kbd "S-<down>") 'next-line))
+
 
 ;;; Directional window display and selection