use s-%c instead of H-c to jump to register

This commit is contained in:
Łukasz Pankowski 2017-09-30 14:21:54 +02:00
parent 3d4181e9c8
commit 7804a734af

View File

@ -677,7 +677,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 "H-%c" character)) (global-set-key (kbd (format "s-%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)