From 7667da94a555deb4a74e561d44ea6673f8f27786 Mon Sep 17 00:00:00 2001 From: rswindell <> Date: Tue, 26 May 2020 19:25:26 +0000 Subject: [PATCH] For Nelgin: ";!" will repeat the last (non-blank) ";string" command. --- exec/default.src | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/exec/default.src b/exec/default.src index 6560874068..bdeb559cc5 100644 --- a/exec/default.src +++ b/exec/default.src @@ -27,6 +27,8 @@ !include sbbsdefs.inc +str last_str_cmd + # Set return point for main menu commands (via end_cmd) cmd_home @@ -166,7 +168,15 @@ cmdkey ; else getstr 40 end_if + compare_str ! + if_equal + copy str last_str_cmd + end_if exec_bin "str_cmds %s" + compare_str "" + if_not_equal + copy last_str_cmd str + end_if end_cmd cmdkey T @@ -645,7 +655,15 @@ cmdkey ; else getstr 40 end_if + compare_str ! + if_equal + copy str last_str_cmd + end_if exec_bin "str_cmds %s" + compare_str "" + if_not_equal + copy last_str_cmd str + end_if end_cmd cmdkey Q -- GitLab