--- freem/src/xecline.c 2025/05/06 16:10:06 1.23 +++ freem/src/xecline.c 2025/05/18 18:15:38 1.25 @@ -1,5 +1,5 @@ /* - * $Id: xecline.c,v 1.23 2025/05/06 16:10:06 snw Exp $ + * $Id: xecline.c,v 1.25 2025/05/18 18:15:38 snw Exp $ * freem interpreter proper * * @@ -24,6 +24,12 @@ * along with FreeM. If not, see . * * $Log: xecline.c,v $ + * Revision 1.25 2025/05/18 18:15:38 snw + * Add ZEDIT command for editing routines + * + * Revision 1.24 2025/05/14 12:22:04 snw + * Further work on shared memory + * * Revision 1.23 2025/05/06 16:10:06 snw * Add extra blank before readline call on NetBSD * @@ -261,7 +267,7 @@ next_line: /* entry point for n if (debug_mode) { debug_mode = debugger (DEBENTRY_LINE, entryref); } - + job_set_status (pid, JSTAT_INTERPRETER); if (then_ctr > 0) { @@ -5289,6 +5295,11 @@ halt: break; /* Z-COMMANDS */ + case ZEDIT: + merr_raise (cmd_zedit (&ra)); + MRESCHECK(ra); + break; + case ZGO: /* ZGO with arguments: same as GOTO but with BREAK on */