[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/modern-mode c3b6001 1/3: * lisp/windmove.el (windmove-remove-key
From: |
Andrea Corallo |
Subject: |
scratch/modern-mode c3b6001 1/3: * lisp/windmove.el (windmove-remove-keybindings): New function. |
Date: |
Tue, 15 Sep 2020 10:37:40 -0400 (EDT) |
branch: scratch/modern-mode
commit c3b60010f964a87f11b2013c70e19046efe22d01
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/windmove.el (windmove-remove-keybindings): New function.
---
lisp/windmove.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/lisp/windmove.el b/lisp/windmove.el
index 6557960..705757c 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