Why is replaced text erasure inconsistent?

[Wpq]

I wrote a simple sequence to bootstrap code blocks such as

Code: Select all

```python

```

The code below works most of the time:

Code: Select all

::mdcode::
{
  Lang := InputBox(,  "input MD code language")
  Send "{U+0060}{U+0060}{U+0060}" . Lang.Value . "`n`n`n{U+0060}{U+0060}{U+0060}{Up}"
}

Sometimes (this is hardly reproducible), some of the letters of "mdcode" are not erased and I end up with

Code: Select all

mdc```python

```

(the number of letters remaining vary, it can be one, it can be three, ...)

I guess that there is some kind of timing issue where the building of the code block is started before the replacement of mdcode is done. Is this something fixable?

[Rohwedder]

Hallo,
only a try:

Code: Select all

::mdcode::
{
  Sleep 100
  CaretGetPos(&CaretX, &CaretY)
  Lang := InputBox(,  "input MD code language")
  Send "{U+0060}{U+0060}{U+0060}" . Lang.Value . "`n`n`n{U+0060}{U+0060}{U+0060}{Up}"
}