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