mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 14:10:17 +00:00
Feature request
see https://qb64phoenix.com/forum/showthread.php?tid=2017&pid=19971#pid19971
This commit is contained in:
parent
4f6896f984
commit
7cd648c143
1 changed files with 3 additions and 9 deletions
|
@ -3829,15 +3829,9 @@ FUNCTION ide2 (ignore)
|
||||||
|
|
||||||
IF KB = KEY_HOME THEN
|
IF KB = KEY_HOME THEN
|
||||||
GOSUB selectcheck
|
GOSUB selectcheck
|
||||||
IF idecx <> 1 THEN
|
a$ = idegetline(idecy): sot% = LEN(a$) 'get current line as is
|
||||||
idecx = 1
|
a$ = LTRIM$(a$): sot% = sot% - LEN(a$) + 1 'calc start of text position
|
||||||
ELSE
|
IF idecx = sot% THEN idecx = 1: ELSE idecx = sot% 'mimic N++ behavior
|
||||||
a$ = idegetline(idecy)
|
|
||||||
idecx = 1
|
|
||||||
FOR x = 1 TO LEN(a$)
|
|
||||||
IF ASC(a$, x) <> 32 THEN idecx = x: EXIT FOR
|
|
||||||
NEXT
|
|
||||||
END IF
|
|
||||||
GOTO specialchar
|
GOTO specialchar
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue