From 84ddb747aaca1d990c86e7b8711532bafce3e721 Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Thu, 31 Jul 2025 11:50:12 +0200
Subject: [PATCH] Add dummy help command

---
 editor/editor.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/editor/editor.lisp b/editor/editor.lisp
index 44cfe7d..cbdd4f1 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -805,6 +805,13 @@ Additionally ensures correct line numbers on the way, as a bonus."
   (redisplay-view (buffer-view (current-buffer *editor*)))
   (redisplay-status-line :completely-p t))
 
+(defun com-help ()
+  (feep))
+
+(defun com-f1-help ()
+  (read-char *eio*)
+  (com-help))
+
 
 
 (defun compile-fail-prompt (text line col)
@@ -921,6 +928,8 @@ Additionally ensures correct line numbers on the way, as a bonus."
     (:right com-forward-char)
     (:left com-backward-char)
     (#\Del com-backward-delete)
+    (:help com-help)
+    ((:m . #\o) com-f1-help)
     ((:c . #\d) com-forward-delete)
     ((:c . #\k) com-kill-line)
     ((:c . #\j) com-newline)