From c5bd6b545c17630b8e00a10248eed82834db143f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=81ukasz=20Pankowski?= Date: Sat, 21 Dec 2019 11:13:31 +0100 Subject: [PATCH] simplify populating my-switch-to-register-map --- init.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/init.el b/init.el index fff8aec..c66ba0e 100644 --- a/init.el +++ b/init.el @@ -366,11 +366,9 @@ of the key binding used to execute this command." (setq my-switch-to-register-map (make-sparse-keymap)) -(let ((character ?a)) - (while (<= character ?z) - (define-key my-switch-to-register-map - (char-to-string character) #'my-switch-to-register) - (setq character (1+ character)))) +(dolist (character (number-sequence ?a ?z)) + (define-key my-switch-to-register-map + (char-to-string character) #'my-switch-to-register)) (global-set-key (kbd "s-s") my-switch-to-register-map)