cursor movement via fnkeys.tes now preserves the column as in most text editors

* Horizontal movements (left/right cursor keys) establish the current column
  and vertical movements (up/down) will try to keep on that column.
* This has long been problematic in SciTECO as it requires state that gets
  reversed when the command line replacement takes place.
* I experimented with encoding the current horizontal position into the braced
  movement operations as in (123C5U$), but I decided that this was clumsy and
  I generally did not want these expressions to become even larger.
* Instead I decided to add some minimal support to the C core in the form of 4EJ
  which is like a number register only that it does NOT get reversed on rubout.
  This is exploited by the fnkeys.tes macros by storing the current position
  beyond replacements.
* In theory, this should be a property of the document, but we cannot easily
  store custom parameters per document.
  So instead, there is just one global variable.
  When editing another buffer, it gets reset to .ESGETCOLUMN$$.
  sample.teco_ini has been updated.
* The current X position only makes sense in the context of fnkeys.tes, as
  TECO commands like <C> are not necessarily "horizonal" movements.
  For the same reason, the core does not try to initialize 4EJ automatically
  when editing new buffers.
  It's entirely left to the TECO macros.
* The commandline replacement is more robust now as it checks braced
  expressions at the end of the command line more thorougly.
  It will no longer swallow all preceding braced expressions.
  Only if they are at least 4 characters in length and end in `C)` or `R)`.

1 files changed, 18 insertions, 1 deletions

diff --git a/src/core-commands.c b/src/core-commands.c
index 237416d..bfec8be 100644
--- a/src/core-commands.c
+++ b/src/core-commands.c
@@ -2098,6 +2098,12 @@ teco_state_ecommand_flags(teco_machine_main_t *ctx, GError **error)
  * on exit the author is aware of is \fBxterm\fP(1) and
  * the Linux console driver.
  * You have been warned. Good luck.
+ * .IP 4
+ * The column after the last horizontal movement.
+ * This is only used by \fCfnkeys.tes\fP and is similar to the Scintilla-internal
+ * setting \fBSCI_CHOOSECARETX\fP.
+ * Unless most other settings, this is on purpose not restored on rubout,
+ * so it "survives" command line replacements.
  */
 static void
 teco_state_ecommand_properties(teco_machine_main_t *ctx, GError **error)
@@ -2106,9 +2112,12 @@ teco_state_ecommand_properties(teco_machine_main_t *ctx, GError **error)
 		EJ_USER_INTERFACE = 0,
 		EJ_BUFFERS,
 		EJ_MEMORY_LIMIT,
-		EJ_INIT_COLOR
+		EJ_INIT_COLOR,
+		EJ_CARETX
 	};
 
+	static teco_int_t caret_x = 0;
+
 	teco_int_t property;
 	if (!teco_expressions_eval(FALSE, error) ||
 	    !teco_expressions_pop_num_calc(&property, teco_num_sign, error))
@@ -2144,6 +2153,10 @@ teco_state_ecommand_properties(teco_machine_main_t *ctx, GError **error)
 			teco_interface_init_color((guint)value, (guint32)color);
 			break;
 
+		case EJ_CARETX:
+			caret_x = value;
+			break;
+
 		default:
 			g_set_error(error, TECO_ERROR, TECO_ERROR_FAILED,
 			            "Cannot set property %" TECO_INT_FORMAT " "
@@ -2180,6 +2193,10 @@ teco_state_ecommand_properties(teco_machine_main_t *ctx, GError **error)
 		teco_expressions_push(teco_memory_limit);
 		break;
 
+	case EJ_CARETX:
+		teco_expressions_push(caret_x);
+		break;
+
 	default:
 		g_set_error(error, TECO_ERROR, TECO_ERROR_FAILED,
 		            "Invalid property %" TECO_INT_FORMAT " "