[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