--- libaitcli/src/aitcli.c	2025/12/24 00:16:40	1.21.2.5
+++ libaitcli/src/aitcli.c	2025/12/24 00:38:48	1.21.2.6
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@openbsd-bg.org>
 *
 * $Author: misho $
-* $Id: aitcli.c,v 1.21.2.5 2025/12/24 00:16:40 misho Exp $
+* $Id: aitcli.c,v 1.21.2.6 2025/12/24 00:38:48 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -565,6 +565,31 @@ bufRIGHT(int idx, void * __restrict cli_buffer)
 }
 
 static int
+bufDELin(int idx, void * __restrict cli_buffer)
+{
+	linebuffer_t *buf = cli_buffer;
+
+	if (!cli_buffer || idx < 0 || idx > MAX_BINDKEY)
+		return RETCODE_ERR;
+
+	if (buf->line_lenin > 0 && buf->line_posin < buf->line_lenin) {
+		clrscrEOLin(buf);
+		rewindin(buf, buf->line_lenin);
+
+		buf->line_lenin--;
+		memmove(buf->line_input + buf->line_posin,
+				buf->line_input + buf->line_posin + 1,
+				buf->line_lenin - buf->line_posin);
+		buf->line_input[buf->line_lenin] = 0;
+
+		printfEOLin(buf);
+		rewindin(buf, buf->line_lenin - buf->line_posin);
+	}
+
+	return RETCODE_OK;
+}
+
+static int
 bufDEL(int idx, void * __restrict cli_buffer)
 {
 	linebuffer_t *buf = cli_buffer;
@@ -1497,12 +1522,14 @@ cliInit(int fin, int fout, const char *prompt)
 	keys[i].key_len = inkeys[i].key_len = sizeof K_INS - 1;
 	if (cli_buffer->line_prompt)
 		keys[i].key_func = bufMODE;
+	inkeys[i].key_func = bufMODE;
 	memcpy(keys[i].key_ch, K_INS, keys[i].key_len);
 	memcpy(inkeys[i].key_ch, K_INS, inkeys[i].key_len);
 	i++;
 	keys[i].key_len = inkeys[i].key_len = sizeof K_DEL - 1;
 	if (cli_buffer->line_prompt)
 		keys[i].key_func = bufDEL;
+	inkeys[i].key_func = bufDELin;
 	memcpy(keys[i].key_ch, K_DEL, keys[i].key_len);
 	memcpy(inkeys[i].key_ch, K_DEL, inkeys[i].key_len);
 	i++;