Add dummy help command

This commit is contained in:
John Lorentzson 2025-07-31 11:50:12 +02:00
parent eb2fac312a
commit 84ddb747aa

View file

@ -805,6 +805,13 @@ Additionally ensures correct line numbers on the way, as a bonus."
(redisplay-view (buffer-view (current-buffer *editor*))) (redisplay-view (buffer-view (current-buffer *editor*)))
(redisplay-status-line :completely-p t)) (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) (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) (:right com-forward-char)
(:left com-backward-char) (:left com-backward-char)
(#\Del com-backward-delete) (#\Del com-backward-delete)
(:help com-help)
((:m . #\o) com-f1-help)
((:c . #\d) com-forward-delete) ((:c . #\d) com-forward-delete)
((:c . #\k) com-kill-line) ((:c . #\k) com-kill-line)
((:c . #\j) com-newline) ((:c . #\j) com-newline)