From 5af2ed3f2a3d600b62b5f769a14c25775b46d6c0 Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Thu, 31 Jul 2025 11:50:52 +0200
Subject: [PATCH] Add Ctrl bindings for forward and backward word commands

---
 editor/editor.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/editor/editor.lisp b/editor/editor.lisp
index cbdd4f1..3ee8bfc 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -936,7 +936,9 @@ Additionally ensures correct line numbers on the way, as a bonus."
     ((:c . #\n) com-new-buffer)
     ((:c . #\l) com-refresh-screen)
     ((:m . #\f) com-forward-word)
-    ((:m . #\b) com-backward-word)))
+    ((:c . #\w) com-forward-word)
+    ((:m . #\b) com-backward-word)
+    ((:c . #\q) com-backward-word)))
 
 (defun key-command-dispatch (key)
   (when (numberp key)