[SLOF] [PATCH] slof/fs/accept: Replace TABs with spaces
Thomas Huth
thuth at redhat.com
Mon Aug 30 22:13:20 AEST 2021
SLOF coding style is to use spaces in Forth code, not TABs, and the TAB
in the (accept) function breaks the right indentation in my editor, so
let's replace the TABs in this file with spaces now.
Signed-off-by: Thomas Huth <thuth at redhat.com>
---
slof/fs/accept.fs | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/slof/fs/accept.fs b/slof/fs/accept.fs
index 26e9216..c06508b 100644
--- a/slof/fs/accept.fs
+++ b/slof/fs/accept.fs
@@ -140,8 +140,8 @@ CONSTANT /his
repeat
2drop
- #sift-count 0 to #sift-count \ how many words were found?
- r> to sift-compl-only \ restore sifting completion mode
+ #sift-count 0 to #sift-count \ how many words were found?
+ r> to sift-compl-only \ restore sifting completion mode
;
\ 8< node sifting for tab completion on device tree nodes below this line 8<
@@ -206,7 +206,7 @@ create sift-node-buffer 1000 allot
THEN
REPEAT
2drop drop
- #sift-count 0 to #sift-count \ how many words were found?
+ #sift-count 0 to #sift-count \ how many words were found?
reset-stack
;
@@ -215,14 +215,14 @@ create sift-node-buffer 1000 allot
dup IF bl rsplit dup IF 2swap THEN ELSE 0 0 THEN >r >r
- 0 dup to tab-last-len to tab-last-adr \ reset last possible match
- current-node @ IF \ if we are in a node?
- 2dup 2>r \ save text
- $tab-sift-words to #sift-count \ search in current node first
- 2r> \ fetch text to complete, again
+ 0 dup to tab-last-len to tab-last-adr \ reset last possible match
+ current-node @ IF \ if we are in a node?
+ 2dup 2>r \ save text
+ $tab-sift-words to #sift-count \ search in current node first
+ 2r> \ fetch text to complete, again
THEN
2dup 2>r
- current-node @ >r 0 set-node \ now search in global words
+ current-node @ >r 0 set-node \ now search in global words
$tab-sift-words to #sift-count
r> set-node
2r> $tab-sift-nodes
@@ -256,8 +256,8 @@ create sift-node-buffer 1000 allot
ELSE
tab-last-adr accept-adr tab-last-len move \ copy matching substring
tab-last-len dup to accept-len to accept-cur \ len and cursor position
- full-redraw-line \ redraw new string
- true to ?tab-pressed \ second tab will print possible matches
+ full-redraw-line \ redraw new string
+ true to ?tab-pressed \ second tab will print possible matches
THEN
THEN
;
@@ -401,7 +401,7 @@ TABLE-EXECUTE handle-control
dup a0 < IF 7f and handle-meta ELSE drop beep THEN
ELSE
insert-char
- THEN
+ THEN
THEN
REPEAT
drop add-history
--
2.27.0
More information about the SLOF
mailing list