[REF] Resolve magic number 32 from SPACE

KeyWeeUsr · Aug 17, 2024 · 2d02b0e · 2d02b0e
1 parent 118d957
commit 2d02b0e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/typewriter-roll-mode.el b/typewriter-roll-mode.el
@@ -78,8 +78,9 @@ Argument POS cursor's position."
 
 (defun typewriter-roll--check ()
   "Check after typing whether to scroll up as in typewriter."
-  (when (or (typewriter-roll--is-backspace) (eq last-command-event 32))
-    (unless (eq (char-before) 32)
+  (when (or (typewriter-roll--is-backspace)
+            (eq last-command-event (char-from-name "SPACE")))
+    (unless (eq (char-before) (char-from-name "SPACE"))
         (typewriter-roll--scroll-main (current-column))
       (typewriter-roll--scroll-up))))