[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ad283df: * lisp/windmove.el (windmove-default-keybi
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] master ad283df: * lisp/windmove.el (windmove-default-keybindings): Allow list of modifiers. |
Date: |
Thu, 11 Jan 2018 17:10:50 -0500 (EST) |
branch: master
commit ad283dfb22770e241347a2f9b00241795e5250f4
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* lisp/windmove.el (windmove-default-keybindings): Allow list of modifiers.
(Bug#29985)
---
lisp/windmove.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/lisp/windmove.el b/lisp/windmove.el
index db77d81..f565068 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -543,16 +543,18 @@ If no window is at the desired location, an error is
signaled."
;; probably want to use different bindings in that case.
;;;###autoload
-(defun windmove-default-keybindings (&optional modifier)
+(defun windmove-default-keybindings (&optional modifiers)
"Set up keybindings for `windmove'.
-Keybindings are of the form MODIFIER-{left,right,up,down}.
-Default MODIFIER is `shift'."
+Keybindings are of the form MODIFIERS-{left,right,up,down},
+where MODIFIERS is either a list of modifiers or a single modifier.
+Default value of MODIFIERS is `shift'."
(interactive)
- (unless modifier (setq modifier 'shift))
- (global-set-key (vector (list modifier 'left)) 'windmove-left)
- (global-set-key (vector (list modifier 'right)) 'windmove-right)
- (global-set-key (vector (list modifier 'up)) 'windmove-up)
- (global-set-key (vector (list modifier 'down)) 'windmove-down))
+ (unless modifiers (setq modifiers 'shift))
+ (unless (listp modifiers) (setq modifiers (list modifiers)))
+ (global-set-key (vector (append modifiers '(left))) 'windmove-left)
+ (global-set-key (vector (append modifiers '(right))) 'windmove-right)
+ (global-set-key (vector (append modifiers '(up))) 'windmove-up)
+ (global-set-key (vector (append modifiers '(down))) 'windmove-down))
(provide 'windmove)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ad283df: * lisp/windmove.el (windmove-default-keybindings): Allow list of modifiers.,
Juri Linkov <=