From f22af7709016783c59f005237a34ad57cc654a82 Mon Sep 17 00:00:00 2001 From: julian Date: Thu, 8 Jul 2021 11:36:54 +0200 Subject: [PATCH] Fixed toggle-word-case --- doom/config.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doom/config.el b/doom/config.el index 07b20d1..f8e4cf4 100644 --- a/doom/config.el +++ b/doom/config.el @@ -140,7 +140,7 @@ (setq $p1 (point)) (skip-chars-forward "[:alpha:]") (setq $p2 (point)))) - (let ((first-char-prop (get-char-code-property (char-after (point)) 'general-category))) + (let ((first-char-prop (get-char-code-property (char-after $p1) 'general-category))) (cond ((string= "Ll" first-char-prop) ; Lower case (upcase-region $p1 (+ $p1 1))) ((string= "Lu" first-char-prop) ; Upper case