lupan/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use H-%c instead of s-%c

Browse Source
This commit is contained in:
Łukasz Pankowski 2017-10-03 23:07:51 +02:00
parent eb0d9bfa98
commit 9d2675abfc
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
init.el
View File

@ -105,10 +105,10 @@
:ensure nil :ensure nil
:demand :demand
:bind :bind
(("s-J" . windmove-down) (("H-J" . windmove-down)
("s-K" . windmove-up) ("H-K" . windmove-up)
("s-H" . windmove-left) ("H-H" . windmove-left)
("s-L" . windmove-right)) ("H-L" . windmove-right))
:config :config
(windmove-default-keybindings)) (windmove-default-keybindings))
@ -685,7 +685,7 @@ inserted between the braces between the braces."
(let ((character ?a)) (let ((character ?a))
(while (<= character ?z) (while (<= character ?z)
(let ((func-name-symbol (make-symbol (format "my-switch-to-register-%c" character)))) (let ((func-name-symbol (make-symbol (format "my-switch-to-register-%c" character))))
(global-set-key (kbd (format "s-%c" character)) (global-set-key (kbd (format "H-%c" character))
(eval (list 'defun func-name-symbol '() (eval (list 'defun func-name-symbol '()
(format "switch to buffer of register %c" character) (format "switch to buffer of register %c" character)
'(interactive) '(interactive)