toki/emacs-winum
1
0
Fork 0
Code Issues Pull requests Activity

rework winum-keymap

Browse source
This commit is contained in:
deb0ch 2016-12-04 11:20:23 +01:00
parent 2152fa48d3
commit 8106e658d8
1 changed files with 26 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
winum.el
View file

@ -97,18 +97,32 @@ return a number to have it assigned to the current-window, nil otherwise."
"Face used for the number in the mode-line."
:group 'winum)
(defvar winum-keymap (let ((map (make-sparse-keymap)))
(define-key map "\M-0" 'select-window-0)
(define-key map "\M-1" 'select-window-1)
(define-key map "\M-2" 'select-window-2)
(define-key map "\M-3" 'select-window-3)
(define-key map "\M-4" 'select-window-4)
(define-key map "\M-5" 'select-window-5)
(define-key map "\M-6" 'select-window-6)
(define-key map "\M-7" 'select-window-7)
(define-key map "\M-8" 'select-window-8)
(define-key map "\M-9" 'select-window-9)
map)
(defvar winum-keymap
(let ((map (make-sparse-keymap)))
(define-key map (kbd "M-m `") 'select-window-by-number)
(define-key map (kbd "M-m 0") 'select-window-0-or-10)
(define-key map (kbd "M-m 1") 'select-window-1)
(define-key map (kbd "M-m 2") 'select-window-2)
(define-key map (kbd "M-m 3") 'select-window-3)
(define-key map (kbd "M-m 4") 'select-window-4)
(define-key map (kbd "M-m 5") 'select-window-5)
(define-key map (kbd "M-m 6") 'select-window-6)
(define-key map (kbd "M-m 7") 'select-window-7)
(define-key map (kbd "M-m 8") 'select-window-8)
(define-key map (kbd "M-m 9") 'select-window-9)
(define-key map (kbd "C-`") 'select-window-by-number)
(define-key map (kbd "M-0") 'select-window-0-or-10)
(define-key map (kbd "M-1") 'select-window-1)
(define-key map (kbd "M-2") 'select-window-2)
(define-key map (kbd "M-3") 'select-window-3)
(define-key map (kbd "M-4") 'select-window-4)
(define-key map (kbd "M-5") 'select-window-5)
(define-key map (kbd "M-6") 'select-window-6)
(define-key map (kbd "M-7") 'select-window-7)
(define-key map (kbd "M-8") 'select-window-8)
(define-key map (kbd "M-9") 'select-window-9)
map)
"Keymap used in by `winum-mode'.")
;;;###autoload