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

simplify populating my-switch-to-register-map

Browse Source
This commit is contained in:
Łukasz Pankowski 2019-12-21 11:13:31 +01:00
parent 52d6ab9632
commit c5bd6b545c
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
init.el
View File

@ -366,11 +366,9 @@ of the key binding used to execute this command."
(setq my-switch-to-register-map (make-sparse-keymap)) (setq my-switch-to-register-map (make-sparse-keymap))
(let ((character ?a)) (dolist (character (number-sequence ?a ?z))
(while (<= character ?z)
(define-key my-switch-to-register-map (define-key my-switch-to-register-map
(char-to-string character) #'my-switch-to-register) (char-to-string character) #'my-switch-to-register))
(setq character (1+ character))))
(global-set-key (kbd "s-s") my-switch-to-register-map) (global-set-key (kbd "s-s") my-switch-to-register-map)